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micro rack 

rack para microcomputador 




- Projetado especificamente para microcomputadores 
de uso pessoal ou comercial 

- Duto eletrificado com tomadas, filtro e circuitos de 
segura nga 

- Gaveteiro-arquivo dimensionado para diskettes e 
fitas cassete 

• Dimensoes: 

1.30 x 0.65 x 0,65m e 1.90 x 0.75 x 0,65m 

- Acabamento em madeira natural, laminado ou 
pintura acrilica. 

• Para maiores informapoes. solicite folheto. 



TRON 

informAtica 



Al. dos Arapan6s, 841 - CEP 04524 
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Editorial 

Muitos insensatos tentam am&nizar as 
profecias apocal fpticas dos cientistas 
falando em guerra nuclear limitada, em 
chances de sobrevivdncia e outras falsas 
esperangas. Um pouco de conhecimento 
de ecologia e meteorologia, por4m, 
permite calcular as consequ4ncias de um 
conflito nuclear: as chances de 
sobreviv4ncia na Terra sao reduzidfssimas 
e ainda assim para a/gumas esp4cies, entre 
as quais, com certeza, nao se inclui a 
Humana. 

O que fazer? E hora de todos os 
individuos perceberem que o conflito 
b4sico nao 4 politico ou ideoldgico: o 
problema nSo 4 mais de esquerda contra 
direita ou moderados contra radicals. 

O problema b4sico 4 de indivfduos contra 
o totalitarismo mais ou menos acentuado 
de todos os Estados. Enquanto o 
individuo nSo for respeitado em seus 
direitos mais bdsicos , a humanidade como 
um to do estar4 seriamente ameacada. 

Esta amea$a se torna mais concrete no 
momento em que as naqoes for mam 
sociedade cada vez mais informed zadas, 
acentuando o poder de controle daque/a 
meia duzia de parandicos sobre todos os 
cidadSos. 1984 est4 aie o Big Brother j4 
4 uma realidade. No Brasil, talvez se 
chame SNI, na URSS, KGB, mas ele, sob 
mu/tiplas facetas ja existe. 

Alguns pacifistas insurgem-se contra a 
intenqao ( pat4tica ) de fabricarmos 
bombas a td micas no Brasil, manifestada 
recentemente por algumas autoridades. 
Muito, mas muito mais ameaoador do que 
isto 4 o projeto de centralizaoao, em um 
unico banco de dados, de tod as as 
informa^oes referentes a ficha individual 
de todos os brasileiros. 

Se este projeto for levado adiante, a 
maior rapidez na investiga^ao de alguns 
eventuais criminosos implicarf no 
controle total e absolute sobre todos os 
cidadaos. Nestas condi goes o computador 
se tornard uma arma muito mais letal que 
a prdpria bomba atdmica. Ser4 dado mais 
um passo no send do de alienar o 
individuo do poder de decisao sobre sua 
prdpria vida e sobre o futuro de seus 
descendentes. 

Se isto acontecer, poderemos dizer que 
o advento do computador real men te 
propiciou a chegada de 1984. 

Feliz Ano Novo! 
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CARTAS DOS 
LEITORES 




Caros amigos, 

... 0 que realmente me levou a escre- 
ver para vooSs foi o artigo LGM— Mensa 
gem de Vega - Quebra-Cabega da revista 
numero cinco No rodap6 da p^gina 22 
existe uma nota fazendo mengao a uma 
organizagao chamada Mensa International 
que muito me chamou a atengao. Como 
eu poderia obter maiores informagoes a 
respeito dela? Na ocasiao voc§s at irmaram 
que, escrevendo para esta segao seria pos- 
sivel obter dados a respeito desta organi- 
zagao. Gostaria muito que me enviassem 
estas informagoes, assim que possi'vel. 

Desde ja agradego a sua atengao, certo 
que serei atendido. Fabio Appolinario. 
Sao Paulo, Capital 

Prezado Fabio, 

Obrigado pelos parattens. A qualidade 
da Microhobby £ nossa maior preocupa- 
cao e 4 at raves das cartas de nossos lei to- 
res que sabemos se estamos no caminho 
certo ou nao, 

Para evitarmos responder a todos os 
lei to res, individualmente, decidimos pu- 
b/icar breve mente uma _ 

matdria sobre a _ 



Mensa. Pedimo-lhe um pouco de pacten- 
cia para que possamos elabora te. 

Prezados Senhores, 

N6s, sofredores do TK, ao passarmos 
um programa para o gravador ou vice- 
versa, estamos avidos para que haja uma 
solugao para este sofrimento. 

Por v^rias vezes, a revista anunciou "a 
solugao", como por exemplo, a utilizagao 
do Tig-Loader (pagina inteira. a cores na 
numero cinco). 

Bern, comprei o tal aparelho, por^m 
nao obtive resultado positivo algum, a 
nao ser que fiquei 15 mil cruzeiros mais 
pobre. 

Agora, a revista anuncia outro "Salva- 
dor", o CMS/ZX, por um prego camarada 
de apenas Cr$ 19.950,00 Pergunto: "sera 
que este realmente vai funcionar? Qual a 
sua sugestao para que eu nao corra outro 
risco?" 

Eu sugiro que, para esta revista manter 
sua boa reputagao, publique 
somente este ^ _ 

EDlTOB- 



tipo de anuncio depois dos aparelhos 
devidamente testados ou entao colocar 
em baixo dq anuncio: "Nao testado pela 
revista". 

Considero a revista Microhobby exce- 
lente e gostaria de manter esta impressao 

Quero deixar claro que o TK 6 um 
computador com aplicagoes infinitas e 
estou satisfeito com o mesmo. Willem 
H.J.G. Scheepmaker, Sao Paulo, Capital 

Caro Willem, 

Diariamente voc€ ouve e ve no radio, 
na televisao, nos jornais e revistas, nos 
out-door's e luminosos,anuncios afirman- 
do por exemplo, que 4 muito bom fumar 
cigar ros, beber refrigerantes,transmitindo 
a id&ia de que estes habitos tornam as pes- 
soas mais j ovens, inte/igentes e bonitas * 
Por6m, nem por isso estes meios de comu- 
n i cacao sao responsaveis pete veracidade 
dos anuncios pagos. 
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Nao estamos dizendo com isto que os 
anuncios existentes na Microhobby nao 
sao confiaveis, a penas queremos deixar 
claro que a responsabi/idade pela quali - 
dade dos produtos anunciados d do anun- 
ciante!! 

E specified men te com relaqSo ao Tig- 
Loader, informamo-lhe que em muitos ca- 
sos , e/e d a nossa "salvaqafo" quando ten - 
tamos introduzir progra mas de fitas envia- 
das pelos lei to res. Claro que' ha casos em 
que s6 mesmo com um "milagre " (coisa 
que os apare/hos nao sabem fazer, ainda \) 
conseguimos introduzi-los. 

Infelizmente , nao possuimos um CMS/ 
ZX e por esta razao nao o testamos, mas 
acreditamos nao haver problemas com seu 
funcionamento. 

Os Oitenta e Por Dentro do Apple 

Prezados Senhores, 

Como usu^rio de TK, fiquei muito sa- 
tisfeito com o langamento de uma revista 
destinada aos usu^rios destas m^quinas; 
nao tive duvidas, tratei logo de oficializar 
minha assinatura, pensando no conteudo 
das segoes, bem como nas segoes pre- 
vistas. 

Gostei muito dos numeros iniciais, mas 
gostaria de transmits a minha insatisfa- 
gao e creio tamb^m que deva ser a de 
grande maioria dos assinantes. 

1 . Na segao Hobby ainda nao foi pu- 
blicado nenhum projeto, como se trata de 
uma revista que conta com a colaboragao 
dos usu^rios para beneficiar usu^rios, nao 
deveria haver problemas na montagem 
desta segao; afinal nao se trata de divul- 
gar segredo industrial. 

2. Assuntos prometidos para o nume- 
ro seguinte e que nao sao publicados; 
exemplo o artigo "Fungoes especiais para 
o TK-85", na revista numero 4. 

3. Assuntos que nada t6m a ver com o 
TK f no caso "Por Dentro do Apple"; tra- 
ta-se de tirar esta segao, uma vez que o as- 
sunto nao & prbprio; a revista Microhobby 
d para os usuarios do TK. Sugestao: pen- 
sem numa revista para usuarios desta ma- 
quina. 

Por fim, gostaria que os senhores enca- 
rassem isto como uma cri'tica construtiva 
visto que, o que foi proposto nao esta 
sendo cumprido. Rubens Maus - Curiti- 
ba, PR. 

Caro Rubens, 

Provavelmente sua preocupaqao com 
as sepdes sobre os micros das linhas Apple 
e TRS-80 d comum a muitos leitores (in- 
clusive nds mesmos que , em nossos lares 
possuimos tambdm, micros TK). Nossa 
iddia parece nio ter sido entendida com- 
pletamente por vocS. (Vide a seqao Des- 
grilandoA Tambdm d comum recebermos 
cartas de leitores que tSm acesso a outros 
micros pedindo-nos informagdes sobre o 
funcionamento dos mesmos. O numero 



destas cartas nSo 6 desprezivel. Justifies - 
se, portanto , a introduqao das duas (e 
agora trSsj segoes, uma vez que atende as 
necessidades de usu&rios do TK. A 16m dis- 
so, mesmo para aque/es que sd tim aces- 
so ao TK, cremos ser import ante (seja co- 
mo curiosidade ou como aperfeiqoamen to 
tdcnico) conhecer o funcionamento de 
outras maquinas — 4 importante nao "bi- 
tolar-se"\ 

Imagine que vocS veja, em a/gum lugar, 
um exce/ente prog ram a para o TRS-80 ou 
para o Apple e o queira uti/izar no TK. 
Ao invds de escrever-nos, perguntando 
como proceder, a com pan he as segoes so- 
bre esses dois micros e vocS mesmo terd 
condiQoes de adapta-lo ! Para facilitar sua 
tarefa, introduziremos a seqao Vice-Versa 
nos prdximos numeros. Nessa seqao serao 
expostas formas para traduzir-se progra - 
mas do Basic-TK para os do TRS-80, 
Apple e vice-versa. 

Nao estaremos tomando espago do 
TK, uma vez que a quantidade de matS- 
rias por ediqao esta cada vez maior (esta- 
mos introduzindo tris co tunas em algu- 
mas matSrias). Com relagao a segao 
Hobby, como voce pode notar, comeqa- 
mos a tirar o atraso (pelo qua / nos descul - 
pamos) neste numero. 

Quanto aos assuntos prometidos, sd 
podemos dizer que eles foram efetivamen- 
te publicados, ainda que com um numero 
de atraso. Nds prometemos tomar cuida- 
do para que nao ocorram novos enganos. 

Suas cr ideas foram real men te constru- 
tivas e esperamos recebS-las, sempre que 
necessario, de nossos leitores. Estamos 
imensamente agradecidos. 

0 TK e as antenas parabolicas 

Prezados Senhores, 

Fiquei muito interessado com o Que- 
bra-Cabega da Microhobby numero cinco. 
Tenho 15 anos, gosto muito de eletrbni- 
ca, principalmente de telecomunicagoes. 
Antes de comprar o meu TK-82C, tinha 
um par de wa I kies-talkies e resolvi fazer 
uma antena para eles. Com a antena que 
fiz, eles ficaram muito potentes em rece- 
bimento de ondas — eu escutava estagoes 
de todo o mundo. Num s^bado a tarde, 
liguei meu radio e recebi sinais muito es- 
tranhos e os gravei. Nao sei o que podem 
ser. 

Agora comprei um TK e gostaria de sa- 
ber como fazer para ligar uma antena ne- 

le. . . Joao Batista Donega Filho, Mogi 
Guagu, SP. 

Caro Joao Batista, 

Tinhamos a intengao de co/oca-lo em 
contato com Nabor Rosenthal, mas infe- 
lizmente ele via jo u para a India e devera 
retornar somente o ano que vem. 

Com re/agao a MENSA, pedimo-lhe 
que leia a resposta a carta do Fabio Appo 
linirio. O 
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Reversao do video no CP-200 
e Joystick 

Prezados Senhores, 

Em primeiro lugar, gostaria de parabe- 
niz^-los pelo 6timo conteudo da revista 
Microhobby atb o presente momento, 
principalmente pelas dicas e programas 
apresentados, que sao uteis e de aplicagao 
imediata, como no caso do programa 
PentaSpeed (publicado na revista numero 
4) e que efetivamente traz um bom ganho 
de tempo na gravagao e leitura de pro- 
gramas. 

Em seguncto lugar, gostaria de agrade- 
cer o envio da fita brinde. Um alerta ape- 
nas com relagao a qualidade da fita utili- 
zada, pois somente ap6s tr6s dias de mui- 
tas tentativas, consegui carregar correta- 
mente o programa Mansao Maluca, devido 
ao fato da fita trancar no cassete e preju- 
dicar a rotagao da mesma no gravador. 

Finalizando, apreciaria receber, caso 
possivel, duas dicas a respeito de duas 
duvidas: 

A primeira 6 com relagao a uma fita 
TKDREZ Ida Microsoft, adquirida recente- 
mente. Ocorre que, ao rodar a mesmo 
num micro CP-200 da Prolbgica, obtenho 
a imagem do tabuleiro de xadrez invertida 
na tela. Fui informado que isto ocorre pe- 
lo fato do jogo ter sido desenvolvido pela 
Microsoft para o TK-82C, que trabalha 
com inversao de vi'deo. Desejo saber se 6 
possivel efetuar uma inversao de video 
atravbsde soft na fita TKDREZ I, semdani- 
ficar a mesma, ou se 6 necessririo alguma 
adaptagao no micro. 

A segunda 6 com relagao ao uso de 



joystick. Desejo saber, se no CP-200 6 
possivel a utilizagao de joystick, ou se 6 
necess^rio, tamb6m, fazer alguma adapta- 
gao no micro. Luiz Fernando Scheffel — 

Porto Alegre, RS. 

Caro Luis Fernando, 

Ficamos gratos por seus e/ogios. 

Com relagao as suas duvidas , infeliz - 
mente a so/ugao menos deserve/ 4 a unica 
que existe. A reversao do tabuleiro s6 po- 
de ser feita com adapt a goes no CP -200. 
Se voce quiser, procure na segao peque- 
nos anuncios as informagoes sobre quern 
pode fazer essa adaptagao para voo§. 
Quanto ao joystick , a Pro/dgica desen vol- 
ve um especial mente desen hado para o 
CP-200. Procure no revendedor que /he 
vendeu o CP -200, provavelmente ele terd 
este mddulo. 



Arquivo 

Prezados Senhores, 

. . . o numero 3 de Microhobby estd, 
como j3 me acostumei a constatar, me- 
Ihor que o anterior. Parabbns! 

Parece que o programa Apagando a Te- 
la (revista numero 3) veio a responder mi- 
nha perguntas sobre as linhas REM. Em 
compensagao tenho novamente duvidas, 
ambas referentes ao programa Arquivo 
(revista numero 3): 

1) Por que as linhas INPUT A sao se- 
guidasde LET A = INT A? 

2) Por que o programa pede para digi- 
tar qualquer tecla (I inha 4890) se ap6s a 
pausa segue um RETURN incondicio- 
nal? E ainda, de novo PAUSE sem POKE? 



Gostei de ver o programa de matema- 
tica financeira (p^gina 10), uma idbia que 
j£ me ocorrera, mas ainda nao consegui ra 
desenvolver. Como o Flavio Rossini colo- 
cou os pontos e as vi'rgulas nos seus devi- 
dos lugares, o que era a parte mais diffcil, 
mas deixou os "milhoes" na mesma colu- 
na dos "milhares", vai aqui minha modes- 
ta colaboragao: 

0 PRINT de saida deveria ser feito nao 
em fungao de "L" mas de "U'\ que 6 a 
variSvel que "conta" os algoritmos da par- 
te inteira de "N", ass ; m a linha 1210 seria 
modificada para: 

1210 PRINT "CR $"; TAB (21-U); N$ 

E para con tar tambbm os espagos 
ocupados pelos pontos deveriamos acres- 
centar a linha: 

1178 LET U = U + 1 

Obviamente a inscrigao "CR $" pode 
ser omitida ou substituida por outra. E na 
"TAB (21-U)" pode ser usado um nume- 
ro menor se quisermos "escrever" mais 3 
esquerda. 

Por enquanto 6 s6! . Alejandro Luis 
Cobos - Sao Paulo, Capital. 

Caro Alejandro, 

F com imenso prazer que tornamos a 
responder uma carta sua. As perguntas 
que voce nos faz sao respond Idas abaixo: 

1) A linha LET A = INT A seguindo 
INPUT A 4 apenas para evitar que o pro- 
grama pare se o usuario distrair-se e digi- 
tar algum numero com digitos nao nu/os 
apds a vfrgula. 

2) A instrugao PAUSE 30000 produz 
uma pausa de pouco menos de nove mi- 
nutos. Quando digita-se qualquer tecla, 
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ONDE SEU FILHO SE DIVER TE APRENDENDO 
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COmPUTER CRIT1P 



Proximas turmas: 24/01 /84 a 04/02/84 

e novas turmas a partir de abril. 

Informagoes e Inscri^des: Rua Dona Germaine Bure hard. 511 - SP 
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Em meio ao verde de um sftio de Itapecerica da Serra, 

o Computer Camp 4 um acampamento para as crianqas de nossa tpoca. 

AI6m de muito esporte e fazer, seu filho enlra em contato 

com vir/os modelos de microcomputadores e d& seus primeiros passos 

nesta tecnologia do futuro. 



Cada acampante recebe uma camiseta Computer Camp, 
material diditico completo e ainda 

concorre a uma assinatura da Revista Microhobby e a um TK. 



6 MICROHOBBY 





menos BREAK , a pausa S interrompida 
e o programa continua a rodar. Experi- 
ments substituir as linhas: 

490© POU5E 30000 

por: 

4900 I r INKCY$- M " THEN GOTO 4900 

Com relaqSo ao fato de Pause nao estar 
acompanhado de POKE 16497,255 temos 
a dizer que nSfo ha nenhum problema. 
A penas os primeiros micros do TK neces 
si tarn disso. 

Aproveitamos, tambSm, para agradecer 
as sugestdes ao programa do artigo Mate 
mitica Financeira em Basic de Flavio 
Rossini. 



Hexamem 

Prezados Senhores, 

Possuo um TK-85 de 48 K e venho 
acompanhando com grande interesse as 
aulas de Assembly na revista Microhobby, 
sendo que, na numero 4 (aula numero 3) 
deparei-me com um "grilo" na execugao 
do programa Hexamem do qual tirei uma 
listagem e cdpias da tela para que V.Sas. 
me expliquem o que ocorreu. 

Primeiramente, para rodar o seu pro- 



grama tive que "enxertar" a linha 1(32 
SCROLL, pois antes surgia a indicagao da 
tela cheia. 

Como V.Sas. poderao observar, o pro- 
grama foi rodado com o exemplo da ligao 
e ao fazer o comando RUN 300(3, o resul- 
tado foi diferente do que est^ indicado e 
era esperado, por exemplo, a membria 
30000 que deveria registrar 164 e regis- 
trou 68. 

Parece-me que nao houve erro na digi- 
tagao do programa, e isso me deixou "gri- 
lado". Gostaria de que verificasse o que 
ocorreu, escrevendo-me ou explicando 
o fato na prbxima ligao. 

Gostaria de saber tambbm o que faz 
as linhas 80 e 85. Fiz um teste dando en- 
trada em A$ = ”XS” e meu programa 
saiu do ar. 

Na aula numero 2 (revista numero 3) 
fez-se referenda a um livro ("... 16 K pa- 
ra que se possa executar os programas 
mais interessantes deste livro. . Gos- 
taria de saber se voc6s j2 o editaram e, 
caso positivo, como posso adquin-lo. 

Agradego-lhe antecipadamente, e nesta 
oportunidade valho-me do ensejo para pa- 
rabeniz^-los pelo excelente m'vel de en- 
sino e pela excelente dktetica de suas 
aulas publicadas. Joaquim J. Mariano, 
GoiSnia, GO. 



Caro Joaquim, 

Cremos que vocS teve que introduzir a 
linha 102 SCROLL por erro de digitaglo, 
pois na linha 60 jS existe o comando 
SCROLL. O mesmo deve ter ocorrido 
quando vocS introduziu os digitos A 4 (he- 
xadecimal). O cddigo 68 que vocS obteve 
na memdria 30000 corresponde a 44 (em 
hexadecimal) e S provavel que vocS tenha 
digitado 44 ao invSs de A4. 

As linhas 80 e 85 (e tambSm 130, 135, 
140 e 145) tern sua utilidade esclarecida 
na liqao numero 4 do curso de Assembly 
/Microhobby numero 5). De qualquer for- 
ma, seu programa nao deveria ter "saido 
do ar" como aconteceu. Novamente, vocS 
deve ter digitado algo errado numa das li- 
nhas citadas acima. Se nds estivermos en- 
ganados, entao seu TK-85 esta com de- 
feito. 

O livro referido S o Linguagem de M3 
quina para o TK — volume I" que jS foi 
editado. Voce pode adquin-lo enviando 
um cheque nominal e cruzado ou um vale 
postal no valor de Cr$ 8.000 /X) para 
Micromega P.M.D. Ltda. Cx. Postal 
54121, CEP 05096 - Sao Paulo, SP. 
Junto ao cheque, anexe seu no me, ende- 
repo completo e o motive (livro) pelo 
qual vocS o esta enviando. 
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>yr mv-v ^ )<*. , # i *1. r O 

U// ///// £///////////////// 

voce PODE MODIFICAR SEU COMPUTADOR 

JOYSTICK 

Com 6 funcSes e muito mais pratico 

CMS 

Caltbrador e modutador de smai para a leitura de programas 
em fitas K7 

POLISOFT 

Jogos e aphcativos de aha quahdade • 



SUPER CP 200 

Teclado numdrico e funpdes com autoshift 
Chaves de inversao de video e Bip 
Auto repeticao e Auto Function 
Sa/das para 2 Joysticks 
CORES E ALTA RESOLUCAO 
Para todos os micros de I6gica Sinclair 

KMAIORES in FORMAQ0ES NAS LOJAS ESPECI ALIZADAS OU ESCREVENDO PARA 

POLIMICRO 

• ‘ Av. Andrade Neves. 1254 — 13100 — Campinas — S.P - Fone (0192) 8 8082 X.*:.. 
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T radioes para o TK 

Prezados Sen bores, 

. . . gostaria que me orientassem na 
transcripao dos comandos (funpoes subli- 
nhadas na xerox anexa) para o Basic do 
TK-85. 

... 20 1 = 0 

60 DIM V(3),X(3).P(3),R(3,3) 

It MAT V = ZER 
80 MAT X = ZER 
90 MAT P = ZER 

100 MAT R = ZER 

110 DATA 
3,1, 1,2,0 

120 PRINT "WELLCOME TO 'WAR3'. 
TWO OR THREE HUMANS MAY 
PLAY! " 

130 PRINT "DO YOU WISH SOME 
ASSISTANCE";. . . 

. . .290 FOR J = 1 TONI 
300 READ A, B 

310 PRINT "DISTANCE" (FT.) 

A;" TO B; 

320 INPUT R (A,B) 

330 R(B,A) = R(A,B) 

340 NEXT J 
350 PRINT" " 

360 RESTORE. 

370 IF N = 2 THEN 460 
380 FOR J = 1 TO N 



390 READ A,B,C,D,E,F 

400 IF R (A,B) < R (C,D) + R(E,F) 
THEN 440 

410 PRINT "ERROR - ILLEGAL 
TRIANGLE. RE-ENTER RANGES." 

420 RESTORE 

430 GOTO 290 

440 NEXT J . . . 

Grato e parab^ns. Paulo Roberto B. 
Bergo, Sao Jos6 dos Campos, SP. 

Caro Paulo Roberto, 

Ficamos muito gratos pelos seus elo- 
gios, pois 4 motive de orgu/ho para nds, 
saber mos que estamos agradando. 

Quando as informapdes sobre as 
TP/ak's, voce as en contrary nos numeros 
an ter io res. 

As linhas que voci sub/inhou em seu 
programa sao de feci! adaptagao para o 
Basic-TK e se voce conseguir traduzir 
completamente o programa, gostaria mos 
que o enviasse para ser pubiicado em nos- 
sa re vista. 

Voc4 sub/inhou as linhas: 

70 MAT V = ZER 

80 MAT X = ZER 

90 MAT P = ZER 

1 10 DA TA 122,3,3,1, 1,3,322 A 22. 
3,1,122 



A /4m dessas linhas, teremos que tradu- 
zir tamb4m as que seguem: 

60 D/M V{3), X(3), P(3), R(3,3) 

100 MAT R = ZER 
300 READ A, B 
360 RESTORE 
390 READ A,B,C,D,E,F 
420 RESTORE 

A adaptaqao para o TK, fica assim: 



ee 


DIM 


U (3) 


6i 


DIM 


X (3) 


ee 


DIM 


P (3) 


63 


DIM 


R C 3 , 3 ) 


e.4 


FOP 


2-1 TO 3 


65 


LET 


V (Z> 


66 


LET 


X(Z) *U<Z) 


67 


LET 


P C Zi =U (Z> 


70 


FOP 


V-l TC 3 


80 


LET 


R CZ,Y> =U (ZJ 


90 


NEXT 


Y 


1Q0 


NEXT 


‘ Z 


HO 


LET 


D$=" 1223311332212331120 


28*5 


LET 


Z = 1 


300 


LET 


RsURL D*(Z> 


303 


LET- 


B-URL D$ ( Z 4 1 ) 


306 


LET 


Z^Z4l 


360 


LET 


Z = 1 


390 


LET 


R=URL D$'Z) 


391 


LET- 


P=UflL D* (Z + l) 


392 


LET 


C=URL B} (Z4-2) 


393 


LET 


D=URL D$fZ+3) 


394 


LET 


E-URL 0-1(2 44) 


395 


LET 


F —URL D>(Z+S) 


396 


LET 


Z =Z 4-6 


420 


LET 


Z«1 



Esperamos que voce ten ha Sxito em 
seu emp reend i men to e aguardamos ansio- 
samente os resu/tados. O 




ALEM DE MICROCOMPUTADORES 

VOCE ENCONTRA AMIGOS! 



Computadores 
Perifericos 
Suprimentos 
Video-Games 
Video-Cassetes 
Desenvolvimento de 
Softwares Aplicativos 
Basic I 
Basic II 

Cursos Especiais 



MELHORES PREQOS DO MERCADO. 
MELHORES CONDIQ0ES DE 

PAGAMENTO. 

DEMONSTRAQAO DE TODOS OS 
EQUIPAMENTOS. 

assistEncia T6CNICA PERMANENTE. 

E TEM MAIS: 

DURANTE A MANUTENQAO VOCE 
NAO FICA SEM EQUIPAMENTO! 



COMPUTE 

SISTEMAS E 
COMPUTADORES LTDA 

RUA ESTADOS UNIDOS, 2141 - Cep 01427 
(Prox. Av. Rebougas) 

Tel.: 852-8533 

Sao Paulo - SP 
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DICAS 

Muitas vezes vamos digitar um progra- 
ma em linguagem de m^quina e se torna 
necess^rio criar inicialmente, uma linha 
REM com muitos pontos, o que 6 um tan- 
to quanto trabalhoso. 

A dica deste m$s 6 um programa capaz 
de criar esta linha REM, evitando assim, 
que voc6 fique digitando "n" pontos. . . 

Inicialmente digite o programa 1 (& li- 
nha REM deve ter 96 pontos). 



^CORNI 

FOft 



1 RCM LN 77* CLRNO FR3T *7 
RHOyBO«NOgCRNOV»777 3TR * FOR « 
R ?F?77XC*5CN ✓ INPUT IMPRINT 



FR3T • LLIOT RNOfl COSUB PI?? LPR 
INT GOSUO STOP RNOO 70*7RrT 

77770 RPH lr "71« POO FOR O. 60 



'>77 7' O RCH ^“71 

SUO iS?OLN F?TRN 

& FOR 1-16514 TO 
3 SCROLL 
4. PRINT I 

5 INPUT X 

6 PRINT X 

7 POKE I , X 
6 NEXT I 




Aperte a tecla RUN e digite os nume- 
ros da listagem decimal a seguir: 



16514 . 
16316. 
16510. 

looao. 



16340. . 6 
16*42. .3 

16544. . 2 

16346. . « 

16340. . 3 

16330. . 3 
10550. 
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10500. 

16300. 



16313. . 
16517. 

16319 . , 
16331. 
16523. 

losas. 

16527. 
16529. 
16331. 
10533. 
16335. , 
16537. 
16039. 
16341. 
16543. 
16545. 
16347. 
16349. 
16331. 
16333. 
16535. 
16337. 
16539. 
16561 . 
16363. 
16363. 
16367. 
16569. 
16071 . 
10073. 
16373. 
16377. 
16579. 
16001. 
16303. 
16505. 
16507. 
16509. 
16391. 
16393. 
16395. 
16597. 
16099. 
16601. 

II 

II 



33 
1 

0 

130 

229 
60 

42 
64 

34 
64 
12 
62 
94 
06 

230 
233 

43 

33 
61 
3 

24 

223 

1 

64 

237 

60 

223 

104 

227 

34 
33 

.2 

193 

3 

30 
33 
.234 
. 11 
. 17 
.O 
29 
.04 
. 237 
.34 
.52 
.43 
.201 



LIST POEM DEC IHRL 



Ao terminar de digitar a listagem, pe<pa 
ao computador para mostrar a listagem, 
por meio de tecla LIST A linha 1 REM 
cont^m v^rios caracteres que representam 
o programa em linguagem de m^quina, 
que criar£ a sua linha REM. 



Retire as linhas 2 a 8 e digite as novas 
linhas do programa 2. 



1 PEN LN 77*^ FRST .7 

»edrno*6oqno5crndy»^77STR» FOR m 
FOR ?r?77XC*SGN ✓ INPUT LPR INT 
FRST * LLIST RNO0 CO SUB PI77 LPR 
INT COSUO 05 STOP RNOO 70 *7RT 
77770 REN "”7>* FOR . FOR O. CO 
SUB BD?OLN F7TRN 

3 PRINT -CONPRIMENTO DR REN: 

4 INPUT C 

3 PRINT C 

6 PRUSE 60 

7 POKE 16514 , C -256 # INT 1C 

O POKE 16513 , INT (C/236) 

9 RRNO USR 16516 
Id CLS 
11 LIST 2 



PROCRRMfl 2 



Vamos ver como este programa fun- 
ciona? 

Ponha o programa para funcionar. A 
seguir, digite o comprimento que a sua li- 
nha REM deveria ter e, num piscar de 
olhos, o programa gera uma linha 2 REM, 
com o numero de pontos que vocS dese- 
java. 



1 REN - LN 77* f El^ND FRST ■»? 
' > C0RND»60RND5CRN0Y«' > T i> STR 6 FOR « 

FOR '»F'’77XC*5GN ✓ INPUT LPR INT 
FRST • LLIST RNOfl COSUB PI77 LPR 
INT OOSUO 06 STOP RNOO 70 *7RT 
*>7770 PEN " 7 ) • FOP . FOR O. GO 

SUB ■B-’OLN F7TRN 

2 REN 

3 PRINT “ COMPR I NCNT O DR REN " 



4 INPUT C 
3 PRINT C 

6 PRUSE 60 

7 POKE 16614 ,C -236# INT < 

6 POKE 16513. INT (C/296) 
9 RRND USR 16316 
19 CLS 
11 LIST 2 



Agora que vocS j£ testou o programa 2 
e sabe como ele funciona, retire a linha 2 
e grave o programa em uma fita de boa 
qualidade. 

E toda vez que voc6 for digitar um 
programa em linguagem de m^quina mui- 
to longo, carregue este programa e digite 
o numero de pontos que precisar. Depois, 
6 s6 retirar as linhas desnecess^rias ao pro- 
grama que voc6 vai digitar. O 



A 

LINHA 

REM 

Nancy Mitia Ariga 
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PEQUENOS 

ANUNCIOS 



— TROCO Programas nacionais e im- 
portados (recuso qualquer pagamento em 
dinheiro) para o TK-82, 83 e 85. Tratar 
com Elington pela Caixa Postal 39003 - 
CEP 21490. 

— VENDO diversos solos em lingua* 
gem de maquina, para o TK-82C e TK-85. 
Tratar com Marco Antonio pelo tel.: 
225*7507 - Belo Horizonte - MG. 

— TROCO Programas (jogos) e kteias 
para o TK. Tratar com Jos6 Augusto S. de 
Campos. Av. Dr. Joao S. Alves de Carva- 
lho, n9 530 — Jardim Ipiranga — Porto 
Alegre — RS — CEP: 90000. Mandar da- 
dos pessoais e programas. 

-VENDO super TK comhigh speed, 
gravagao independente de dados, inversao 
de video por soft ou chave, controle re- 
mote do gravador (soft ou chave), tecla 
reset alta-resolugao, 16K e fungao slow, 
junto com programas em linguagem de 
maquina. Jogos e aplicativos. Informagoes 
com C£sar pelo telefone: 201-8409 (nos 
fins de semana). 



-PROCURO LEITOR que tenha es- 
quema da interface e som para o TK, ou 
algu6m que o construa. Esquemas e/ou 
propostas para Paulo A. Fessel. R. Gene- 
ral Gois Monteiro, 1 13 - Piracicaba - SP. 
Tamb6m procuro pessoas que tenham o 
nP 1 da Microhobby, para enviar-me duas 
cdpias xerox no mesmo enderego. 

-VENDO TK-85 com alta resolugao 
jogos, joystick, tudo por Cr$ 250.000,00. 
Trfis meses de uso. Tratar com Edson. 
CEP: 04437. R. Manoel Vaz, 265 - Jd. 
Consdrcio - Sto. Amaro,-SP. 

- VENDO ou TROCO programas para 
os similares de CP 200, tais como: TK-82, 
83, 85, e outros , aos interessados 
escrever para: Adelson de Carvalho A. Jr. 
Rua da Hora, 465 - apto. 102-B - Reci- 
fe, PE - CEP: 50000. 

— Making The Most of Your ZX-81. 
Getting Acquainted with your ZX-81. 
Tratar com Edison - Fone: 235-3479. 
Hor. Comercial — Cx. Postal 7252 — CEP: 
01031 - SP. 




— COMPRO Interface para maquina 
el6trica (datilografia-impressora). Propos- 
tas para Roberto de A. Santos. Rua U- 
ruguai, 205, apto. 803 - Tijuca, RJ - 
CEP: 20510. 

— Estou interessado em comprar uma 
TK-Printer usada. Comunicanse com 
Rubens Maus - Rua Luiz Dallagassa, 208 
Vila Haver — CEP: 80000 — Curitiba, PR. 

— TROCO Programas para Micros 
TK-82C e similares. Possuo o Frogger, 
Mazdgs, Snake Bite, Galaxy e outros. Tra- 
tar pelo tel.: 8534717 (c/ Sergio) - Sao 
Paulo — SP. 

— Desejo corresponder-me jom usu3- 
rios de micros similares ao TK82-C resi- 
dentes em Blumenau, para TROCA de 
programas. Escrever para Zoltan Bergman 
- Cx. Postal 2172 - CEP 89100 - 
BLUMENAU, SC. 



LANQAMENTO 



Terminal com 
teclado profissional 
tecnologia ITT 
compatlvel com toda 
linha Sinclair NE e TK. 
Teclado com feed-back 
t&ctil com todas as 
funcOes gravadas na 

prdpria tecla. Caixa em ABS expandido 6 mm de 
espessura pronta para receber seu micro 
computador com todas as interligagOes instaladas. 
Acompanha manual para montagem com opgOes 
de fixagSo da fonte internamente ou usando 
externamente. 




Saidas: Expansfio membria/impressora 
Fonte externa ou interna 
Rode 

Gravagao EAR/M 1C 
Chave Liga/Desliga 
Chave 110/220 Vac 
Joystick 




INTER-COL IND. E COM. LTDA. 

Depto. Vendas - Av. Alda, 806 - Diadema (Centro) 
fone: 456.3011 



Os pedidos registrados no m6s de Janeiro , terfto prego de 
langamento de Cr$ 87.000,00 

Linha da Fabrtcacio: 

Chaves comutadoras 

Tec las e teclados semi prolisalooals 

Teclas e teclados profissionals 





Micros e Minis 
Nacionais 

Sistemas Aplicativos 
Periffericos, 
Equipamentos, 
M6veis, etc. 



KYW INFORMATICA 



Rua da Lapa. 180 gr 1 108/1 1 10 CEP 20 021 
Telex (021) 30980 Rio de Janeiro RJ 



telefone: (021) 



252-3527 
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EDM 




MAIS SUCESSO FAR A VOCE! 



Comece uma nova fase na sua vida profissional. 

0$ CURSOS CEDM levam ate voc£ o mais moderno ensino 
tecnico programado e desenvolvido no Pafs. 



CURSOS Df APERfEPAMENTO 



1 m- iilTOADIWTCCil n/V) r*C 




Sao mats de 140 apostilas com mformagdes completas e sempre 
atualizadas Tudo sobre os mats revolucion£no CHIPS E voce 
recebe. ai£m de umasolida formagSo teorica, KITS elaborados 
para o seu desenvolvimento pr£tico. Garanta agora o seu futuro 




mm m SS 




® es A 


CEDM 20 KIT 


-■A f 


de Ferramentas. 


am w , , 1 


CEDM 78 KIT 


• * v= jf\ 


Fonte de Alimentagao 




5v/1 A CEDM 35 KIT 




Placa Experimental 


■■ f f l to 


CEDM 74 KIT 


* Ml 


de Componentes 


IL 3 £ \ 


CEDM 80 


| x le» W 


MICROCOMPUTADOR 




Z80 ASSEMBLER 









Este CURSO. especiaimente programado. oferece os 
fundamentos de Lmguagem de Programag5o que domma o umverso 
dos microcomputadores. DmSmico e abrangente, ensma desde o BASIC 
b£sico at£ o BASIC mais avangado, inclumdo nogoes b£sicas sobre 
Mampulagao de Arquivos, T6cmcas de Programagao. Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramagao e 
T£cnicas em Lmguagem de Maquma. que proporcionam urn grande 
conhecimento em toda a area de Processamento de Dados 





M£todos novos e inGditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova ligSo, apostilas ilustradas 
ensmam tudo sobre Amplificadores, Caixas Acusticas. Equalizadores, 
Toca discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Capsulas 
e Fonocaptadores. Microfones. Sonorizagao, Instrumentagao de Medidas 
em Audio. Tecmcas de Gravagao e tamb£m de Reparag3o em Audio 



CEDM 1 KIT de Ferramentas. CEDM 2 KIT Fonte de Alimentagdo 
♦ 15 15/1A CEDM 3 KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM 5 KIT Pre-amplif icador 
Estfcreo CEDM 6 KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo prbprio de estudo. A lln- 
guagem simplificada dos CURSOS CEDM permite aprendizado f£cil. E 
para esclarecer qualquer duvida, o CEDM col oca A sua disposigSo uma 
equipe de professores sempre muito bem acessorada. AI4m disso, voce 
recebe KITS preparados para os seus exercfcios preticos. 

Agil, moderno e perfeitamente adequado £ nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condigdes ideais para o seu 
aperfeigoamento profissional. 



igr4ii si 



Voc6 tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies voc6 recebe nossos catilogos de apresentagdo. 




rCTM Avenida Sao Paulo, 718 - Fone <0432) 23-9674. 
LLUI I CAIXA POSTAL 1642 - CEP 86100 Londrina - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCIA 

Solicito o mais ripldo possfvel informagdes sem compromlsso sobre o 
CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 






.J 









CURSO DE iD@D(s5)0(cZ) TK 
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variAveis indexadas 

MATRIZES - FLAGS 



Na aula numero 1 introduzimos a pa- 
lavra-chave LET, que associava a urna va- 
rtevel numdrica um "lugar" na memdria. 
Entretanto, existem ocasioes em que d de- 
sejdvel armazenar varios valores para uma 
"mesma" varidvel, distinguindo seus dife- 
rentes valores atravds de indices entre pa- 
rdnteses; seria como se construissemos 
uma tabe/a na memdria, d qual denomina- 
mos matriz. Assim, temosa palavra-chave 
DIM (tecla D) cuja funpao d reservar espa- 
po na memdria para os valores que dese- 
jamos colocar, atribuindo inicialmente va- 
lor zero a todos eles. Experimente entao 
o seguinte programa: 



io 


SLOU 




20 


DIM XC5) 




30 


FOR 1*1 TO 5 
PRINT ”X (”; I; 




40 


••> x c ii 


50 


NEXT I 




60 


PRINT 




70 


FOR 1-1 TO 5 
PRINT ”X C '* ; I; 




80 


*•) m'T* 


90 


INPUT XCD 




10O 


PRINT RT 1*5, 


5 ; x (I) 


110 


NEXT I 





Na instrupao 20 reservamos espapo na 
memdria para cinco valores de X colocan- 
do inicialmente valor 0 (zero) para os 
mesmos; a seguir, usando INPUT, associa- 
mos valores aos varios X's e usando um 
"pequeno truque" na linha 100 escreve- 
mos, na tela, os numeros colocados. 

Note que hd diferenpa de significado 
dos indices: com a palavra-chave DIM ele\ 
indica o tamanho mdximo da tabela; nas 
demais instrupoes, ele indica a posiqao na 
tabela. 

0 que acontece se, no programa ante- 
rior, colocamos a linha: 



«6 DIM X C5) ? 
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Infelizmente no Basic-TK as varidveis 
indexadas tdm uma limitapao: ao contra- 
rio das varidveis normais, seu "nome" po- 
de ter apenas uma letra; assim, por exem- 
plo, o seguinte comando d invdlido: 



DIM PR2I34) 



Em contrapartida, d possivel fazer ma- 
trizes (TABELAS) com mais de uma di- 
mensao (atd 255 dimensoes). Por exem- 
plo, duas dimensoes sao facilmente ima- 
ginaveis se pensarmos em linhas e colunas. 

Por exemplo: 



R I; - , j; - 



1© DIM RC3.4) 

SO FOR 1*1 TO 3 
3© FOR U*1 TO 4- 
40 PRINT RT 4,4; 

s?" 

50 INPUT RCI,U) 

60 PRINT RT 4,11;R(X,U) 

70 PAUSE 90 
80 CLS 
90 NEXT U 
100 NEXT I 
110 PRINT TAB 4; "MATRIZ ESCOLHI 
DR” 

120 PRINT 
130 FOR 1*1 TO 3 
140 FOP = 1 TO 4 

150 PRINT RT 2«X+2,4*<J, R l I ,U) 
160 NEXT J 
170 NEXT I 



Repare que na linha 10 reservamos es- 
papo para uma tabela de trds linhas e qua- 
tro colunas, ou seja, para 3x4 = 12 varid- 
veis com valor inicial zero. 

A seguir, vocd deve fornecer os valores 
para cada varidvel (INPUT) efinalmentea 
matriz d colocada na tela. 

Note que, estamos usando um loop 
dentro de outro loop: desta maneira, o 
loop in ter no serd repet ido tantas vezes 
quantas forem indicadas pelo loop ex ter - 
no. Note que os NEXT'S devem aparecer 
em ordem inversa aos FORs, ou seja: 
r-FOR I = . . . 
rFORJ = ... 

Lnext j 

NEXT I 



Repare no uso da instrupao AT para a 
formatapao da saida na linha 1 50; com es- 



Pierluigi Piazzi 
Flavio Rossini 

ta formatapao, qual o numero maximo de 
algarismos que posso usar para cada va- 
lor? E: possivel aumentd-lo? Vocd saberia 
"imaginar" uma matriz com trds ou mais 
dimensoes? 



Nopao de FLAG: 
utilizapao na ordenapao 
de numeros * 



Denominamos FLAG a uma vartivel 
auxiliar cuja funpao d indicar a ocorrdn- 
cia ou nao de determinada condipao du- 
rante a execupao de um programa. Uma 
utilizapao prdtica para este tipo de varid- 
vel, estd na ajuda em descobrir "erros" 
em programas razoavelmente complica- 
dos, principalmente aqueles com um gran- 
de numero de instrupoes IF. Nestes pro- 
gramas, a quantidade de "caminhos" pos- 
si'veis d muito grande, o que dificulta a 
andlise do mesmo, "passo a passo”, con- 
forme fluxograma ao lado. 

Que corresponde a: 



10 SLOU 

20 PRINT RT 4,3; ••OURNTOS NUMER 
OS DEUO ORDENRP7MRX. C22) •* 

30 INPUT N 
40 DIM N INI 
45 CLS 

50 FOR 1*1 TO N 

60 PRINT RT 4,4; ”NI”; I; ”1 ■*»- 
70 INPUT NCI) 

60 NEXT I 
90 FR5T 
100 CLS 
105 LET F-0 
110 FOR 1*1 TO N - 1 

120 ir NCI) < = N ( I ♦ 1 ) THEN GOTO 1 

70 

130 LET F«1 
140 LET 6*N Cl) 

150 LET NCI) *N C I ♦ 1 ) 

160 LET N ( 1 4-1) -5 
170 NEXT I 

160 IF r* 1 THEN GOTO 105 
190 SLOU 

200 FOR 1*1 TO N 
210 PRINT VAB 3; NCI) 

220 NEXT Z 



Repare o uso do DIM (linha 20) para 
reservar espapo na memdria para 22 nu- 
meros que deverao ser fornecidos ao com- 
putador atravds do INPUT na linha 70. 
Note a mudanpa de velocidades de 
SLOW para FAST e, a seguir para SLOW; 





r < , - ,TOW > 




r<^EE^ 




GD 



FLUXOGRAMA 



RESPOSTAS DOS EXERCICIOS 
DOCURSODE BASIC 



2) a — Ele imprime o valor de A que 6 igual a 
5, e o valor de B que 6 igual a 1 0 
Apesar do valor de B nao estar no programa. 
ele est3 na memdria do computador 

b - O micro acusar3 o erro na linha 200, 
pois a linha 150 "limpou" a membria do micro. 

c - Se for acrescentada a linha 400 NEW. o 
micro imprimis os valores de A a B e limpara 
o programa da memdria 



A partir deste numero de Micro* 
hobby passaremos a pub Hear as respos * 
tas do Curso de Basic continuamente. 
Nesta edi$ao, voc§s terao as respostas 
dos exercicios desde o intcio, ou seja, 
a partir da re vista numero do is at6 a 
ultima ediqao, numero 6. 

As respostas dos exefiefeios desta 
edi$ao, pub/icaremos na prdxima re - 
vista (oitof de Microhobby. Assim 
sendo , nossos leitores ficarao sempre 
em dia com o Basic. 



Aula 3 



lO FOP R«0 TO 21 
20 PRINT TAB R,R 
30 NEXT R 



2)1 



Aula 2 



10 FOR R • 1 TO 21 
20 PRINT TAB R; "■ 
30 NEXT R 

3) a 



10 RAND 

23 PRINT "LOTCRIA- 
30 FOR R*1 TO 13 
*0 PRINT XNT (RNO*3> *1 
50 NEXT R 



IB LET HOPE eft 

2ft PRINT “HOPE - ** , MOPE 

30 PRINT ‘ MOPC ♦ 2 » " ; MOPE <*2 

4.0 PRINT ” 3 *MOPC - 3 #NOPE 

SB PRINT -S+7 • " J 5*7 

60 GOTO SO 



10 RRND 

20 PRINT ”LOTERIR- 

30 LET R-l 

40 FOR B*1 TO 13 

SO LET C»INT I RND#3> *1 

60 PRINT -3000 fl» **COLUNR 

70 LET A*Afl 

60 NEXT B 



isto porque a tela nao 6 necess^ria en- 
quanto o computador faz a "ordenagao". 
Note tamb^m que o loop de ordenagao 
faz o contador I variar de 1 at6 N—1, pois 
caso contr2rio, ao chegar no ultimo nu- 
mero, iriamos obter urn erro (For que?). 

Finalmente, repare no uso da vartevel 
B como auxiliar para fazer as trocas e o 
uso do mesmo nome (N) para a varteve! 
indexada, e para a vartevel que indica 
quantos numeros devem ser ordenados; 
elas sao distinguidas pelo computador. 
pois esta ultima nao possui fndices en- 
tre parfinteses. 

Para finalizar a aula, apenas uma obser- 
vagao quanto aos mdices: eles devem ser 
sempre numeros inteiros e positivos. 

Exercfcios: 

1. AItere o ultimo programa da aula 
para que imprima uma mensagem de erro 
se na linha 30 for introduzido urn numero 
maior que 22. AI6m disso, faga com que 
ele coloque os numeros em ordem decres- 
cente. 

2. Elabore urn programa que, dada 
uma matriz bidimensional quadrada (nP 
de linhas = n9 de colunas) calcule seu de- 
terminante. 

3. Faga urn programa que seja capaz de 

M ler M duas matrizes de duas dimensoes e 
calcule a soma e diferenga "imprimindo" 
na tela a matriz-resultado. O 



10 RRND 

20 PRINT ”LCn*ERIR“; TAB 10;1;TR 

is; -X”; TAB 20,2 

30 FOR R«1 TO 13 

4.0 LET T.1©*S#<INT IAND*3) ) 

60 PRINT "JOGO ” ; R; TRS T;-X‘* 

60 NEXT R 



4)1 



10 LET 1*10 

20 LET F«10 

30 PRINT RT 

4 0 LET F-F41 

45 IF F < 32 THEN GOTO 30 

60 LET I.Itl 

55 LET F-O 

60 GOTO 30 



Aula 6 



: — 

10 INPOT N 

20 IF N < 0 OR NOIKT N THEN GOT 
O 60 

30 LET M«1 
35 LET I*N 

4.0 LET H-M*X 

50 LET I-I - 1 _ 

60 IF 1=1 THEN PRINT “FAT. ~;N 
M 

70 IF 1ml THEN STOP 
75 GOTO 40 

60 PRINT -NUMERO NRO RCEITO** 

90 GOTO 10 

2) a -1 



10 INPUT N 
20 IF N -2 * I NT 
NT N; " E* PRR- 
30 ir N-2HNT 
NT N; " £• IrtPAR* 



(Nx2) -0 THEN PRI 
(N/2> »1 THEN PRI 



10 INPUT N 

20 IF N-6#INT CNX6) -0 THEN PRI 
NT n; - E* MOLTIPLO DE 6- 

30 IF N -6 t INT (N/6»<>0 THEN PR 
NRO E* MULTIPLO DE 6" q 



INT N; * 
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MINICALC 



Atualmente no mercado estao a venda 
uma grande variedade de Visicalcs, que 
sao planilhas eletrbnicas que possibilitam 
a manipulagao de informagoes com maior 
facilidade e ocupando o menor espago na 
membria do computador. 

Apresentamos aqui um Minicalc, que e 
uma redugao dos Visicalcs que estao a 
venda. Este Minicalc foi planejado para o 
controle de um orgamento dombstico 
(calcula o total das despesas e o saldo 
do mbs). 

Para iniciar o programa (veja programa 
na pagina seguinte), digite RUN e apare- 
cera na tela uma parte da planilha. Impor- 
tante: na tela aparecerao sempre as colu- 
nas das Contas de dois meses. 




ENTRftDfl DE DADOS 0,1 

•or* 



A planilha esta dividida em vbrias ce- 
lulas, que estao organ izadas por coorde- 
nadas (coluna, linha). Por exemplo: a con* 
ta ENTRADA corresponde ao dado (0,1 ); 
a conta LUZ (0,4), o mbs de JANEIRO 
corresponde a coluna 1 , e assim por 
diante. 

Primeiramente, digite as contas nas cb- 
lulas da coluna "0" Sua planilha ficarb 
assim: 
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••or 



Ap6s o preenchimento desta coluna, 
digite o comando desejado. 

EN - entrada de dados 
AL - alteragao 
CA — calculo do saldo do mbs 
DX - move a planilha para a direita 
EX — move a planilha para a esquerda 
IM • imprime as despesas do mbs 
SA - grava o programa e os dados da 
planilha 

Para a ENTRADA DE DADOS (linha 
60 a 220) digite EN e NEW LINE e de- 
pois o mbs. Digite apenas os valores da en- 
trada do mbs e as despesas (luz, agua, tele- 
fone, alimentagao). Para digitar as outras 
cblulas basta apertar a tecla NEW LINE, 
pois elas serao preenchidas na rotina de 
calculo. 




Caso haja alguma alteragao a ser feita 
(linha 410 a 530) digite AL e N.L., em 
seguida o mbs em que sera feita a altera- 
gao e a linha a ser alterada. Depois, in- 
troduza o novo valor desta cblula. Por 
exemplo: mbs 1 , linha 6 para 6000 




*• 6000 ” 



Sua planilha ficara assim: 



0: ENTRADA 


100000 






g SRLD.fiNT . 








g: TOT.ENTR. 








Q: LUZ 


5030 






5 : AGUA 


4000 






gTELEFONE 


6C33 






g ALIMENT . 


20000 






y TOT . DESP . 








SALDO 









COMANDO ?<tN,fiL,CR,OX,CX,lH,SR> 

-a- 



Quando todos os dados estiverem cor- 
retos, digite CA e N.L. Esta rotina de 
CALCULO (linha 720 a 840) coloca o sal- 
do do mbs anterior no saldo anterior des- 
te mbs (linha 760); soma a entrada do 
mbs com o saldo anterior, colocando o re- 
sultado no total da entrada (linha 770); 
calcula o total das despesas (linha 780) e 
calcula o saldo do mbs (linha 790). 




Digite o programs anexo e critique 
o funcionamento deste Minicalc que 
apresentamos. Mas digite exatamente 
como a listagem se apresenta, sem alte- 
rar nomes ou nOmeros. caso contrtfrio 
a Soma Sintatica nao sera a mesma (o 
programs Soma Sintatica deve ser co- 
locado na RAMTOP, portanto antes 
de digitar o programa) * 



10 DIM U$(13,9,9) 

20 DIM U (13,9) 

30 LET C-O 
4.0 RFM EN 
50 GOTO 130 

60 PRINT RT 21,0, "MES* 

70 INPUT M 

75 IP H ) 12 OR M\1 THEN GOTO 70 
BP LET CsrM 
GO PRINT RT 21 - 5; M 
103 FOR F = 1 TO 9 
HO LET U$ (M + l ,F) «**• ~ 

120 NEXT F 

130 FOR D=1 TO 9 

140 GOSUB 650 

153 PRINT RT 21,0; "ENTPRPfl DE D 

Boos c; d 

160 INPUT MS 

170 IF CODE rt*<=27 OR CODE H$> = 
33 THEN LET UlC+l.D) 

160 IF CODE H J > 27 RND CODE H*<3 
O THEN LET U(CU,D) rUfiL H$ 

190 LET NsLEN H> 

200 IF OO THEN LET U*(C+1,D,10 
-N TO ) =H* 

210 IF C-0 THEN LET US ( C + 1 , D > »H 

* 

220 NEXT D 

230 GD5UD 650 

240 PRINT RT 2 1 , 0 , “ COMRNDO ?<EN 

, RL , CP , DX , EX , IM , SR > ” 

250 INPUT H $ 

260 IF H$« M OX" THEN GOTO 330 

270 IF H$ ="EX" THEN GOTO 373 

260 IF HJs'-CR" THEN GOTO 720 

THEN CO TO 4.10 

THEN GOTO 60 

THEN GOTO 540 

THEN GOTO 650 



MEMORIA OCUPADA: 

3.108 bytes 

SOMA SINTATICA: 

56.320 



* Veja Microhobby 5 ou X . 



560 PRINT RT 21,3, "OURL O ME 5 7 
575 IF P M>12 OR M<1 THEN GOTO 

e i5S Tpp?nt RT 2 eeBUBB ,8fUH-l). 

0+1 to cm*oi 1 

600 LPRINT 

610 FOR Dal TO 9 _ „ 

620 LPRINT U| (1,D) , •* ";u»c 

M ♦ 1 , D ) 

633 NEXT D 
640 GOTO 230 
650 REM SR 

660 PRINT RT 21,0; "PREPARE O GR 
RURDOR E flPERTE N . L . ** 

670 PRUSE 3000 

660 PRINT RT 21,0; "RPERTE O REC 

DO GRRVROCR 

690 PRUSE 150 

700 SRUE "H INICRLC'* 

710 GOTO 230 
720 REM CR 

730 PRINT RT 21,0; ’ OURL O MES -> 



735 INPUT M 
740 IF M > 12 OR 



I < 1 THEN GOTO 73 



290 IF Hfis “RL " 

300 IF 

310 IF HJ?-”IH" 

320 IF N**"SR" 

325 GOTO 250 
330 REM DX 
340 LET NsMfl 

350 IF hill THEN LET Mall 

360 GOTO 230 

370 PFM EX 

380 LET M«H-1 

390 IF M < 1 THEN LET Mai 

400 GOTO 230 

410 RCM RL 

420 PRINT RT 21,0, "MES* 

430 INPUT M 

435 IF M > 12 OR M<1 THEN GOTO 43 

0 

440 PRINT RT 21, 5; M; ** LlNHRa •• ; 
450 INPUT Z 

455 IF 2 >9 OR 2<1 THEN GOTO 4SO 

460 PRINT Z 

470 INPUT MS 

460 LET US<M + 1,Z)»* " 

490 IF CODE H $ < =27 OR CODE H$>* 

38 THEN LET U(M+1,Z>=0 

500 IF CODE HS>27 RND CODE H$<3 

0 THEN LET U CM ♦ 1 . Z> *URL MS 
510 LET N=LEN MS 

520 LET US (M+1,Z , 10-N TO ) *H$ 
530 GOTO 230 
540 RL M IM 
550 LET B S = 



745 LET C-M 
750 FRST 

76© LET U CC+1,2) aU CC,9) 

770 LET U (C + 1,3) =U CC + 1, 1) +U(C-*1 

, 2 ) 

700 LET U *U (C + 1,4) ♦UlC + l 

, 5 ) +U(C + 1,6> -f U f C ♦ 1 , 7 ) 

790 LET UCC*1,9) *UCC*1,3J -Ulofl 

, 8 ) 

800 FOR Pel TO 9 

610 LET N=LEN STRS UlC + l.F) 

815 LET U$«C+l,F)a" 

820 LET US <C*1,F, lO-N TO ) *STRt 
U CC-fl , F ) 

630 NEXT F 
840 GOTO 230 
850 REM TE 

860 FRST . 

69^I^^^T^THEN LET M«1 
900 IF M a 1 2 THEN LET M = il 
910 LET RSI 16 TO 181 =BJIh»3-2 T 
O M*3) 

920 LET R S t 26 TO 28 ) =8 S I M + 1 T 

O M *3 +3) 

930 CLS 

940 LET 6S = "B 



950 LET C$» M : M 
960 PRINT R$ 

970 FOP Z*1 TO 9 
900 PRINT 8$ 

990 PRINT CHRS (Z+156),C$ 

10OO NEXT Z 

1010 print es 

1020 FOP Fal TO 9 

1030 PRINT RT F»2,2, US <1,F> , RT F 
» 2 , 12, US IM + l ,F) ; RT F *2 , 22, US (M+2 
,F> 

1040 NEXT F 
10SO SLOU 
1060 RETURN 



Rsftu&H 



f>mua 



ENTRRDR 


iOOODO 




5RLD.RNT. 


0 




TOT.EKTR . 


1OC3C0 




LUZ 


5303 




RGUR 


4003 




TELEFONE 


6300 




ALIMENT. 


20030 




TOT.DESP. 


35OO0 




SOLDO 


65000 





ENTRRDR 


..... 


103000 


5RLD.ONT . 


..... 


0 


TOT .ENTR . 


..... 


100333 


LUZ 


..... 


5330 


ALiUR 


..... 


4 033 


TCI E F ONE 


..... 


6003 


RL I ME NT . 


..... 


20033 


TOT.DESP. 


..... 


36333 


SOLDO 





65003 



Os comandos DX e EX movem a plani- 
Iha para a direita ou para a esquerda, pos- 
sibilitando uma visualizagao global da pla- 
nilha. 

Se voo6 possui uma impressora e deseja 
listar a relagao de despesas do m6s, utilize 
o comando de IMPRESSAO (linha 540 a 
640). 



Para a gravagao do programa bem co- 
mo os dados da planilha (linha 650 a 840) 
digite SA e NEW LINE. Portanto, quando 
voc6 recuperar o programa gravado nu- 
ma fita cassete, atrav^s do comando 
LOAD " " e for manusear os dados gra- 
vados, NAO UTILIZE o comando RUN, 
caso contr^rio, ele apagar2 os dados j2 ar- 
mazenados. 

Agora que voc£ conhece o funciona- 
mento do Minicalc , utilize sua imaginagao 
e crie novos Minicalcs. Sugestao: crie um 
comando que possibilite o movimento da 
planilha para cima e para baixo. 



SUB ROTINAS DO PROGRAMA 



linha 10 
linha 20 

linha 30 a 50 

linha 60 a 220 

linha 230 a 325 
linha 330 a 360 
linha 370 a 400 
linha 410 a 530 
linha 540 a 640 — 

linha 650 a 710 — 

linha 720 a 840 - 
linha 850 a 1060 



- dimensiona a ma- 
triz da planilha 

- dimensiona a ma- 
triz para os valores 
numdricos da plani- 
lha. 

- entrada de dados 
na coluna "0" 
(Contas) 

- entrada de dados 
por mes (colunas 1 
a 12) 

- controle do coman* 
a ser acionado 

- move a planilha pa* 
a direita 

- move a planilha pa- 
ra a esquerda 

- alteragao de uma 
c£lula da planilha 

- imprime a relacao 
de despesas de um 
mes 

grava o programa e 
os dados da plani- 
lha 

- calcula o saldo do 
mes 

- elabora a formata- 
gao da tela 



Experimente digitar estes dados 
para o m§s de fevereiro: 



n ENTRRDR 


200000 


SRL D . f!N T . 




TOT • C.N1 R • ' 




LUZ 


3300 


RGUR 


5000 


: TELEFONE 


1030 


ALIMENT. 


20030 


. TOT.DESP . 




: SRl.OO 





COMRNDO 7 <EN,RL,CR,DX,EX, IM , SR > 

Depois faga os c^lculos com o co- 
mando "CA" e a seguir mova a plani- 
lha para a esquerda utilizandoa rotina 

"EX". 



| ENTRRDR 


100030 


230030 


| 5ALD.RNT . 


0 


65000 


\ TOT.EMTR. 


100030 


265030 


| LUZ 


5000 


3000 


| RGUR 


4000 


5000 


[ TELEFONE 


6000 


1030 


| ALIMFNT. 


20000 


20000 


| TOT .DESP. 


35030 


29030 


| SRLDO 


65000 


236000 



COMRNDO 7<EN,AL,CA,DX,EX,IM,SA> 

Repare que o saldo do m6s de janei- 
ro foi colocado durante a rotina de c3l- 
culo no saldo anterior do m£s de feve- 
reiro. O 
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COMPUTADORES 

NO 

RALLY 





FOTO: Walter Morais 



0 III Rally Universit^rio Hermes Mace- 
do, encerrado dia 10 de dezembro foi tal- 
vez o mais importante evento automobi- 
listico desde 1980, quando recomegaram 
as competigdes para estreantes e novatos 
suspensasem 1976. 

Nestes ultimos anos, mais e mais com- 
putadores tfim se aliado ao homem para 
auxili4-lo nas mais diversas atividades. 
A sua dinSmica tern sicjo explorada desde 
as profundezas do mar aos conf ins do es- 
pago e seu trabalho tern sido reconhecido 
como indispens^vel pelo mundo todo. 

A Microdigital esteve presente no III 
Rally patrocinando dois carros: o numero 
200, pilotado por Marcelo Chamie (o 
Lufao) e navegado por T^cito Mistrorigo 
de Almeida (o Tito), que correram como 
estreantes apenas na terceira etapa e em- 
bora tendo problemas mecSnicos, obtive- 
ram boa colocagao. Mais sorte por6m teve 
o carro numero 381, pilotado por 
Francisco Rodes Fauss (o Chico) e nave- 
gado por Francisco Loschiavo Neto (o 
Chiquinho), que participaram como vete- 
ranos e que venceram a primeira etapa do 
Rally (Santos); foram 29 colocado na se- 
gtmda etapa (Campinas) e na IV etapa 
(Sorocaba) e chegaram em 139 na tercei- 
ra etapa (Sao Jos6 dos Campos), ficando 
classificados em segundo lugar na conta- 
gem geral dos pontos. 

Contando apenas com competidores 
universit^rios, este Rally quebrou o recor- 
de mundial de participantes: mais de 350, 
dos quais boa parte se utilizou dasvanta- 
gens de se ter urn computador ou calcula- 
dora a bordo para auxiliar noscSIculos de 
navegagao com rapidez e precisao durante 
as provas. Computadores como o TK-85 
tiveram papel decisivo para se alcangar 
boas colocagoes, na opiniao de navegado- 
res como o Tito e o Chiquinho que, 
insatisfeito como segundo colocado, pro- 
mete ganhar disparado na prbxima cor- 
rida, contando mais uma vez com a ajuda 
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de um TK-85 da Microdigital. 

Show a parte, por6m foi a maneira de 
instalar os computadores nos carros tanto 
etetrica quanto mecanicamente. Apesar 
de ter de suportar trepidagoes durante 
cerca de 300 km por 6 horas, havia at6 
carro equipado com TRS-80 da Radio 
Shack! A equipe patrocinado pela Micro- 
digital (as duplas Chico-Chiquinho e 
Lufao-Tito e o t6cnico em Hard/Soft, 
Tanios Hamzo) optou por6m pelo conjun- 



to micro-TV, que apesar de dar mais tra- 
balho, ficava mais portStil e maleavel. 
Quanto a parte eletrbnica (os cinco inte- 
grantes da equipe sao estudantes de enge- 
nharia eletrbnica na E.E. Mau3) o "know- 
how" desenvolvido ser3 analisado na ses- 
sao HOBBY do prbximo numero desta re- 
vista, e esperamos que Ihe seja util, mes- 
mo que vocfi nao esteja pensando em to- 
mar parte em um Rally, mas que possa 
querer instalar seu computador no carro.O 






Dois importantes ti'tulos da 

W. Sams" agora em portugues 






BASIC PARA CR1ANCAS (DOS 08 AOS 80) 

de Michael P. Zabinski 



Este Uvro foi escrtto espedalmente para os jovens que queiram 
aprender a linguagem BASIC, a mate popular e dlfundida lingua- 
gem de programac&o doc computadorec pessoais. Nenhum conhe- 
cimento pr£vk> k necessArio para aoompanhar este Uvro. pote ele 
parte dos conceitos eiementares e aborda apenas os pontos funda- 
mentals da programa^fto em BASIC. 

Trata-se de um Uvro divertklo. escrtto num estilo ieve e bem humo- 
rado. Sua abordagem k dara e estimula o principiante a praticar 
cada novo conhecimento adquirido. O Uvro se baseia na linguagem 
BASIC Nivel II do TRS-80, um dos mate populares. 



Em anexo estou remetendo a importance de Cr$ 

em. Cheque N° c/Banco 

ou Vole Postal N° (envior 6 AgAncia Central SP) 

paro pogomento do(s) Livro(s). [oD [02] (osslnolar) que me serdo remeti* 
dos pelo correio 

Cheque ou Vale Postal, pagdvel em Sdo Paulo, a favor de: 

EDITELE Editora Tdcnica Eletrdnlco Ltdo 
Caixa Postal 30 141 - 01000 - Sdo Paulo - SP 

Nome: 

Endereqo 

Telefone: CEP Bairro: 

Cidode Estado: 

Obs Se ndo quiser destocar esta folha. pode envior xerox ou carta com os 
^ dados completes 



II 
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Si 



sugestOes para o programador basic 

de Earl R. Savage 

Nada melhor para o programador do que um Uvro de consulta que 
revele aquelas t€cnicas e “dicas” que os programadores mate expe- 
rientes tanto escondem. Este Uvro faz teso. Ele d£ dicas sobre como 
meihorar e agUizar seus programas. Cont£m SO sugestdes detalha- 
damente explicadas sobre t£cnicas e sub-rotinas para as mate diver- 
s as apUca^dec. SBo comentadas tambem as varia^des possfvete das 
sugestdes apresentadas, o que toma o Uvro uma fonte inesgotAvel 
de id*ias para o programador. 

Escrttas em BASIC Nivel 11, as sub-rotinas podem ser usadas dire- 
tamente em equlpamentos compatlvete com o TRS-80 (CP 500, CP 
300, DGT 100, D 8000). 



A0QUIRA-0S NA SUA UVRARIA PE C0NBANQA 0U SEGUIN00 AS INSTRUCOES 



TK-FILE 




GERENCIADOR DE 
BANCO DE DADOS 
PARA A LINHA TK 
E COMPATIVEIS! 

Programa com a/ta velocidade de 
processamento, pelo emprego de rotinas 
em eddigo de maquina. 
Com ele voce terd um versdtil arquivo, 
com grande liberdade para defin/r os itens 
desejados, formar fichas, formaiar e 
impnmir os re/atdrios dassificados, 
se/ecionar, aherar, induir e exclu/r 
dados e armazenar seu arquivo 
em fita cassete. 
Acompanham comp/eras mstruqoes 
para operapao do programa. 
Para adquiri-lo via correio , basta 
enviar carta com seu nome e enderepo 
completos anexando cheque no valor de 
CrS 11. 790,00, nominal a MULT/SOFT 
INFORMA T/CA L TDA. - Caixa Postal 
54121 ^CEP 01296 
SAO PAULO 





ENTREGA IMEDIA TA PARA TODO BRASIL 





O MICRO ROBO QUE JOGA XADREZ 

Uma novidade bastante interessante, 
lanpada na — ainda comentada -- feira da 
inform^tica do ultimo ano, 6 o simp^tico 
micro robd KALT-400. 0 robb 6 formado 
por urn brapo mecdnico com seis eixos, 
que $e movimentam em Angulos que va- 
riam de 0° a 180°. Ele pode ser utilizado 
em diversas atividades; desde o auxilio a 
deficientes fisicos at6 ao lado de urn soli- 
tSrio jogador de xadrez, como urn verda- 
deiro parceiro. 

0 KALT-400 atende a comandos pro- 
gramados em qualquer microcomputador 
(inclusive os compativeis com o TK-83), 
como tamtam comandos em qualquer lin- 
guagem. No BASIC, foi realizada uma ex- 
peribncia que resultou no seguinte mini- 
programa: 10 POKE X, Y, onde X define o 
eixo e Y a posipao do eixo selecionado. 

0 BASIC PRESENTE NO INTERIOR 
DE SAO PAULO 

Mari'lia, cidade do interior de Sao Pau- 
lo, preocupando-se com a necessidade 
emergente por informapoes na 3rea da In- 
form^tica, inaugurou o CIM — Centro de 
Inform^tica Mari'lia. 

O Centro oferecerS cursos de BASIC, 
a linguagem mais usual e simples de com- 



NOVIDADES 




putapao, em trfis m'veis. O primeiro eose- 
gundo, atingirao as crianpas a partir dos 
cinco anos de idade e trabalharao com 
elas. no sentido de desenvolverem a sua 
criatividade, atrav6s do raciocfnio Idgico 
e cn'tico, dentro de uma visao human i's- 
tica.O terceiro nivel, destina se ao publico 
jovem e adulto, oferecendo-lhes os princi- 
pals conceitos relacionados ao uso do mi- 
crocomputador na linguagem BASIC, evi- 
dente! 



UMA MAQUINA DE ENDEREQAR 

Foi lanpado em Sao Paulo pela Novel 
Print (empresa fabricante de etiquetas e 
fitas) uma maquina de enderepamento 
postal autom^tico. 0 equipamento, apre- 
sentado na ultima feira da Inform^tica, 
denomina-se Tickopress 19 SD/MD e foi 
idealizada com o objetivo de efetuar urn 



CONVERSE 
COM 
PROFISSIONAI: 



SOFTWARE 

Linha completa 
de software aplicativo. 
Desenvolvimento de software 
especifico para sua 
necessidade 
Linha completa deprograma: 
para TK e CP-200. 



SHOW ROOM E VENDAS: 



ASSESSORS 

Antes da escolha de seu micro, 
nos diga qual o seu problema. 
N6s o orientaremos 
na escolha do micro CERTO 
para voc6 
ou sua empresa. 



CURSOS 

BASIC I, BASIC AVANQADO 

• Excelente material diddtico, 
no m&ximo 10 alunos 
por classe e 1 micro 
para cada 2 alunos. 



DAT fl 5QLUTIDW 

VENHA NOS VISITAR 

AV. EUSEBIO MATOSO, 654 - CEP 05423 • SP 
BEM EM FRENTE AO SHOPPING CENTER ELDORADO 

FONE: 813-3355 



MICRO REI 

INFORMATICA LTDA. 



- Cursos regulares de Linguagem BASIC ou com 
hor&rio a combmar, para executivos e para 
aualquer microcomputador. 

- Curso sobre GRAFICOS em Basic, para JR, 

DISMAC. AAAvvi 

- Venda de micros pelo correio: JR, MAXXi 

- Transformamos televisao para monitor. 

- Consultoria em SOFTWARE para 

microcomputadores. Do 

- Especializada em programas para Hewlett Packard 

8 5 

- Proqramas prontos para HP 85 e 87 

• Mala direta e agenda de clientes • Movimentacao 
banc&ria com cbdigo de despesas • Datitografw 
autom^tica de circulares com busca de enderecos na 
fita • Topograf.a • Contabil.dade de autdnomo: l.vro 
caixa • Jogos diversos • Folha de pagamento 

• Controle de estoques • Controle para Postos de 
aasolina • Controle de processos para Marcas e 
Patentes • Controle de alugu6is • Contas a pagar 

• Contas a receber 



Rua Pinheiros. 812 CEP 05422 
Pinheiros SP 

Tel: (011) 881-0022 
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enderetpamento autom^tico em todo tipo 
de correspondence, desde envelopes atb 
revistas. 0 processo de enderetpamento b 
realizado com o empilhamento dos enve- 
lopes na parte anterior da mbquina que os 
separa por unidades, aplicando as etique- 
tas sempre na mesma disposipao, alcan- 
cando uma velocidade mbdia de atb 70 
aplicapoes por minuto. 



FITAS CO LOR I DAS 
PARA IMPRESSORA 

Investindo grande potencial na amplia- 
pao de suas empresas, o Grupo Machado, 
formado pelas empresas Data Ribbon, Mr. 
Data e Datrix, urn grupo fabricante de 
fitas magnbticas e disquetes, resolveu par- 
tir, neste segundo semestre, para um 
ritmo mais intenso de automapao. 

Com este objetivo, o Grupo estb desen- 



volvendo em sua fbbrica, um laboratbrio 
de anblises e instalando mbquinas de en- 
tintar em OCR e corte de filme de polieti- 
leno. Todo este investimento em mbqui- 
nas, resultou no lanpamento dos disketes 
Datadisk, das fitas Qume, LGM 3287 (em 
4 cores), Grafix 80 e 100, albm de uma 

1 inha completa de fitas em cores. 

OS JOGOS DA MULTISOFT 

Os usubrios de micros tbm agora b sua 
disposipao uma sbrie de 16 jogos em fitas, 
lanpados pela Multisoft. Sao fitas que 
agrupam de dois a trbs programas com 

2 K de membria, e podem ser utilizados 
em microcomputadores como os TKs 82 
e 83. Entre os jogos dispomveis para ven- 
da nos revendedores estao: "Invasores, 
Desafio Espacial, Bombardeio, Smag- 
Smag, Confronto, Minotauro, Laser, Lim- 
peza Cbsmica entre outros. 

MICRODIGITAL NO RIO 

Os usubrios dos micros fabricados pela 
Microdigital, no Rio, jb possuem um local 
para levar os seus aparelhos encrencados. 
A empresa inaugurou em Ipanema, na 
Rua Visconde de Pirajb, 41 4-conj.606, 
uma filial para prestar assistbncia tbcnica 
aos usubrios de seus aparelhos. O 




UVRAKIA 

SISTEMA 



LOJA: Galena Metrdpole, Ij. 8 1 .■ s/loja 
Tels. : 259 1 503/257-6 1 1 8 - SP 



ENTRADAS DA GALERIA: 

Av. Sao Luiz. 1 87 - {Antigo 1 53) 
Praga Dom Jos6 Gaspar, 1 06 SP 



SEMPRE NOVIDADES 



i 



MACHINE LANGUAGE PROGRAMMING MADE SIMPLE FOR ^ 

YOUR SINCLAIR & TIMEX TS 1 000 - ZX8 1 - ZX80 - 
Melbourne 28.000, 

MASTERING MACHINE CODE ON YOUR ZX8 1 - Ton. Baker 1 8.000, 
APPLE II - GUIA DO USUARIO - EDICAO EM PORTUGUES 
Osborn^ 9.800 

A CONSTRUCAO DE UM COMPILADOR Setzer 5.700. 

A PRIMFIRA MORDIDA - Apple II - maxxi unmtron- 
m.croengenho-Tucc. 4.200, 

BASIC SEM SEGREDOS Mtrshawka 6.500, 

ESTRUTURAS DE DADOS Furtado 6.900, 

INTRODUCAO A LINGUAGEM BASIC 
P/MICROCOMPUTADORES Lederman - 6.350, 

9 - 0 MICROCOMPUTADOR NO CONSULTbRlO MFDICO 

Nascimenio 5.200 

0 49 EXPLOSIVE GAMES FOR THE ZX8 1 - Hannell 14.100.’ 

1 • THE TIMEX SINCLAIR 1 000 - INCLUDES 50 READY TO- 

• RUN PROGRAMS 16.000 

2 GETTING ACQUAINTED WITH YOUR VIC 20 - Hartnell 1 6.000. 

3 - LINGUAGEM DE MAQUINA PARA 0 TK 82-83-85 

(assernbler z- 80) Rossim 6.500. 

FAST BASIC - BEYOND TRS-80 BASIC Gratzer 24.600. 

15- ENHANCING YOUR APPLE II -Lancaster 30.400, 

16 0 COMPUTADOR: UM NOVO SUPER HERbl: 1 983 

157 pAginas 5 400. 

E um livro que desvenda todos os mist6r.os dos computadores, desde seu 

nasamento ate a lingua que eles gostam de usar para conversar conosco 
Destinado ao publico infanto-juveml e a leigos no assunto Autores Maria 
Cecflia C Baranauskas/Helo.sa Correia Silva A 
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5 - 

6 - 

7 - 
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* Rre$os sujeitos a alter acao 



ATENDEMOS POR REEMBOLSO 
CORREIO E VARIG - (fora da Capital) 
PEDIDOS PARA; CX. Postal 9280 
CEP 01 051 SAO PAULO SP 



PROTEJA SEU 

MICRO 



ESTABILIZADORES 
ELETR0NICOS 
DE TENSAO 

• UL TRA S/LENC/OSO 

• AL TO RENDIMENTO 

• BA IX A DA TENSAO DE 
SAIDA: ± 10% da Tensao 
nominal 

PotSncia — Monofasico: 

0.5 KVA ax* 15 KVA 

T rif^s i co : 10 KVA ate 
200 KVA. Para alimentaeao de 
Mini e Micro Computadores. 
Equipamentos Biomedicos, 
fotocomposipao. laboratdrios, 
etc. 




ZENTRANX 

ELETRbNICA, INDUSTRIA E COMfcRCIO LTDA. 

NO BREAK ESTABILIZADORES DE TENSAO 

Rua Elias Mahfuz. 22 • CEP 04746 • Santo Amaro - SP 

Tels.: (Oil) 522-2159 e 548-0651 
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„ PROGRAMAS DO LEITOR 

EQUACOES ALGEBRICAS 

E trAnscendentais 



1. omEtodo 

0 mdtodo utilizado no programa deno- 
mina-se "Mdtodo de Bolzano ou de bis- 
secgao". £ um processo simples de apro- 
ximagao sucessiva para deter minar raizes 
reais de uma equagao algdbrica ou trans- 
cendental. Partindo-se de um ponto x’ 
menor que a raiz procurada, o mdtodo in- 
crementa V, su cess iva men te, por 'h', atd 
que um intervalo de amplitude 7?' seja en- 
contrado, de modo que f (x) e f(x+h) te- 
nham sinais opostos, isto d, f(x) ,f(x+h)< 
0 . 

Uma raiz entao d detectada entre 'x' e 
'x+h\ A partir dai, o passo h‘ 6 reduzi- 
do a metade em todas as etapas seguintes, 
observando-se o seguinte 

a. Se f(x).f(x+h)>0, na etapa seguin- 
te usar-se-d o intervalo anterior reduzido 
a metade, com valor de x' incrementa- 
do pelo valor de 'h' (dessa etapa ante- 
rior), isto 6, daquela em que foi obtido 
f(x).f(x+h)>0 [sinal (+)]; e 

b. Se f (x) .f(x+h)<0, na etapa seguin- 
te usar-se-d o intervalo anterior reduzido 
a metade, pordm com o valor de 'x' man- 
tido da etapa anterior, isto 6, daquela em 
que foi obtido: f(x) ,f (x+h)<0.[sinal (— )]. 

Desta forma, a raiz 6 sempre aproxi- 
mada pela esquerda e em qualquer etapa, 
a amplitude do intervalo do passo ante- 
rior da o limite superior de erro. 

Encontrada uma raiz, pode-se partir de 
sua direita para local izar outra que por- 
ventura houver. 

2. O PROGRAMA 



a. Comandos BASIC 



lO RCH PEDRO A. CRPLINI 
IS REM “RAZZES DR EOUACRO** 

2® REM “METOOO: DOL2RNO M 

4.® LET K«® 

5® LET L*0 

60 PRINT RT B,l;“yOCC UAF IMTR 

OOUZIU R FUMCRO DE “ 

INMR 600 7 (5rNJ“ ~ 



70 INPUT Uf 
- 1.-5- 



THEN GOTO 12® 



8® IF U9* 

90 CLS 

10® PRINT RT 3,1; ”L I3TC O PROGR 
RHR E INTROOUZR R FUNCRO DE5EUAD 
A NR L INMR 600.“ 

110 STOP 
120 LET Ha>0 . 3 
13® CLS 

140 PRINT RT 3,1; “ENTRE COM UM 
VALOR OURLQUER MENOR OUE R P 

R IZ PROCURRDR . ~ 

ISO INPUT X 
160 LET K~K+1 
17® CLS 
180 OOSUB 600 
100 LET G*F 

200 PRINT RT 3,1; “X* M ;X;RT 7,1 
; “H* “;H;pt S,l;’*x+M- **;X^H 
210 LET X-X+H 
220 GOSUB 600 

230 print rt n,i; “F cxj - -;o;flrr 
13,1; “F CX4-M) * ** ; F 
240 IF F*0 THEN GOTO 310 
23® IF G*0 THEN GOTO 330 
260 IF RBS (F-G) <*.0001 THEN GO 
TO 530 

270 IF F*G>0 THEN GOTO 310 
280 PRINT RT 13,1; “SINAL «->” 
290 LET L-l 
300 GOTO 320 
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310 PRINT RT IS , 1 , “ S r»s Tl. ( ♦ ! “ 
32® PRINT RT 17,1; “DIG* * < NEU 

L INE > “ 

33® PAUSE 9929 

340 POKE 16436,233 

25® NOT L*1 THEN GOTO 400 

360 IF F»G>0 THEN GOTO 380 

370 LET X.X-H 

380 LET HsH/a 

390 GOTO 160 

400 IF K<al0 THEN GOTO 160 
410 CLS 

42® PRINT RT 5,1; “RPOS INCPET1EN 
TRR < X > DEZ UEZES, NRO ENCONTREI 
INOICIOS DE PR IZ . *' 

43® PRINT RT 9,1,'PRRR DESISTIR 
DIGITE <P>.” 

440 PRINT RT 11,1; “PARR TENTRR 
OUTRO VALOR INICIRL DIGITE OURLO 
UER TECLA E NEULINE” 

430 INPUT U$ 

46® IF U$*"P" THEN STOP 

470 CLEAR 

480 LET K*0 

490 LET L=0 

500 GOTO 120 

510 PRINT RT 17, 1; “X* “ ; X; “ £• 

530 PRINT RT 17,1; “X* ~;X-M E 
• o UCRO . ” 

B40''5foP " _ w 

600 LET F=EXP X-3«X 
610 RETURN 

620 STOP 

630 SPUE “RRIZES DE EQURCAH” 

640 RUN 



MEM6RIA0CUPADA: 

1 556 bytes 

SOMASINTATICA: 

21289 



b. Varidveis utilizadas 

X: valores das abscissas da fungao 
f(x); 

H: valores das amplitudes dos in- 
terval os utilizados, 

G: valores para f(x); 

F: valores para f(x^-h); e 

K, Le U$: valores auxiliares para 
controle das mensagens 
pertinentes as diversas 
situagdes encontradas. 

C. Observagoes 

1) A fungao f(x) da qual se quer 
pesquisar o valor de V tal que 
f (x) = 0, deve ser, previamente, 
definida na subrotina 600. Caso 
isto seja esquecido pelo pesquisa- 
dor, o programa ir3 lembrd-lo 
desse fato; 

2) 0 intervalo 'h' esta, inicialmente, 
fixado em 0,5 de amplitude. 

3) Est3 previsto o caso onde um 
dos valores assumidos por 'x' ou 
'x+/?' venha a se constituir em 
uma raiz exata da equagao. 

4) Caso o valor inicial escolhido pa- 
ra 'x' nao permita, ap6s dez eta- 
pas, encontrar um intervalo [x, 
x+h] tal que f(x) .f(x+h) <0, o 
pesquisador sera consultado se 
desiste da pesquisa, ou se quer 



Pedro Antonio Carlim P de Souza 

atribuir outro valor inicial para 
y , remiciando o processo itera 
tivo, 

5) 0 programa pode ser utilizado 
num TK83, Hao sendo neces 
saria a expansao de memdria. 

6) 0 caiculo da raiz esta previsto 
com aproximagao a menos de 
0,0001. 

3. O TESTE 

0 programa foi testado com diversas 
fungoes e valores arbitrarios iniciais para 
'x'. 

Os comandos "basic" do paragrafo an- 
terior apresentam para teste a equagao 
e x — 3x = 0 Para tanto, definiu-se na li- 
nha 600 a fungao: 



600 LET F «EXP X-3#X 



Partindo-se do valor inicial x = 0, de- 
pois de 15 impressoes de resultados, 
obtfim-se a solugao. Reproduzimos a se- 
guir alguns resultados: 

a. Primeira impressao: 

, X = C. 6171575 
H* .00390625 
X+H- 0.62109375 
F (X) = .0021446524- 

FCX4H>= -.0023160936 
SINAL C -) 

DIGITE <NEU LINE > 

b. Segunda impressao: 

X* 0.6171075 
H= .0009765625 
X*Hs 0.61016406 
F CX) * .0021446524 

FCX+H) e .<*010261093 
SINRL <+> 

DIGITE <NEtJ LINE) 

c. Ddcima quinta impressao: 

X* 0.61201656 
H= .000061035156 
X4H* 0.61907959 
F (X) a .000046836693 
FCX+HJ* -.000020916574 

X* 0.61901856 E* R SOLUCflO. 



O autor deste programa, 6 bacharel licenciado 
em matemdtica pela PUC-SP e atualmente dd 
aulas na dree, na PUC-SP e nas Faculdades 
Oswaldo Cruz. O 
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use 

Tiglaader. 

TIG-LOADER possibilita: 

• a localizagSo do otimo volume do gravador, tacilitando a 
operagSo LOAD 

• DU PLICA R qualquer programa, mesmo aqueles 
“techados”. 

• carregar (LOAD) e DUPLICAR simultaneamente 

• gravar (SAVE) em 2 gravadores ao mesmo tempo 

• monitorar as operates LOAD, SAVE ou DUPLICACAO 
atravSs de tone 

• filtrar as interferences etetricas de baixa frequ&ncia, que 
sio a causa da maioria dos problem as de LOAD/SAVE. 



TIGRE 

COM. DE EQUIP. P/COMPUTADORES LTDA. 

"POSt? Rua Correia GalvSo, 224 - CEP 01547 • SSo Paulo 
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NAO CARREGUE ESTES PROGRAMAS! 



V. n§o precisa mais carregar estes programas: eies estao prontos pa- 
ra uso, em CARTUCHOf Conecte o cartucho, ligue o micro e... 96 ! 
Seis aplicativos a sua disposiCcfc), esperando V. comandar. SEM mo- 
dificar seu micro. E a expansao de memoria e usada normal mente! 
Como lan<?amento, o TIGRE oferece: hi-speed, renumerador, apaga 
dor de linhas em bloco, soma sintatica, disponibilidade de memoria e 
rotinas de video em um unico cartucho! E ESPETACULAR!!! 



ESCREVA PEDINDO INFORMACOES 



Envie seu pedido + cheque cruzado Atendemos somente por carta. 

Prazo de entrega: 15 dias Solicite re lag So de programas em fita. 

Despesas postais incluidas nos pregos 



SIM , dese/o recaber o TIG-LOADER . para tamo, estou anexando o cheque n°_ 



- no valor de CrS - 



NOME 




ENDERECO 


CEP 


CIDADE | ESTADO: 


profissAo 


ASSINATURA. 


DADE: 


MARC A DO MICROCOMPUTAOOR 








PROGRAMA DO MES 

DUELO 

Gustavo Eflidio da Almaida 



Voc6 6 Kid Dedo Lerdo, o melhor (e 
unico) xerife da regiao onde fica Micro- 
Town. 

L&, encontram-se Jonny Ringo, Jesse 
James, Billy The Kid, Sundance Kid, os 
irmaos Dalton, Kid Reagan e outros gran- 
des matadores. VocS veio a MicroTown 
para acabar com todos eles, e agora segue 
pela rua principal da cidade. 

Cuidado! Em cada esquina pode haver 
alguPm a sua espera, e, se assim for, vocfi 
nao poder^ fugir ao DUELO! 

0 confronto sera inevit^vel e s 6 Ihe 
restarao duas oppoes. . . Matar . . . ou 
Morrer\ 

Aguarde o momento certo e. . . 'To- 
go'. \" (Figura 1). 




Aquele que disparar primeiro, ficarS 
para contar a histbria . . . 

Eu sinto pena de vocS, pois o term'vel 
e esquizofrSnico Kid Reagan, o maior de 
todos os matadores, oodeia! Decididoa 
liquidar vocfi, trouxe a MicroTown toda a 
sua quadrilha e voc6 sP sair3 da cidade 
num caixao! 

Portanto, se vocfi quiser continuar vi- 
vo, continue matando! 

Tome cuidado com sua conscifincia, 
pois vocS P uma pessoa honesta e se dispa- 
rar antes do momento . . . "FogcH " , irp 
punir a si mesmo (Figura 2). 




Contagem: 



— A cada passo percorrido -*5 pontos 

— Caso venpa o Duek> -*50 pontos 

— Desobedecendo as regras “► —5 pontos 
Para mover, (O) use a tecla 7 

Para atirar use a tecla 0 
Inimigo - (") 

Muita atenpao no momento da digita- 
pao! 

Cuidado para nao digitar comandos ou 
funpoes, letra por letra. 

Funpoes, como por exemplo INKEY$, 
devem ser digitadas da seguinte maneira: 
SHIFT NEW LINE tecla que contPm a 
funpao. 

22 MICROHOBBY 




Caracteres grpficos usados: 

" H " -SHIFT 9 e SHIFT H 

" ■ " -SHIFT 9 e SHIFT SPACE 

" 0 "- SHIFT 9 e SHIFT B 
Observaoao: Para alterar o grau de difi- 
culdade do jogo, devemos listar a linha 
350 atravPs do comando LIST 350 e 
NEW LINE, depois usar SHIFT EDIT. 

Feito isso, P s6 mover o cursor para 
a direita atravPs do comando SHIFT 8 
repetindo a operapao atP que o cursor pa- 
re de se mover. 

Agora, delete o ultimo caractere, digi- 
tando SHIFT RUBOUT. Digite uma das 



letras abaixo: 

B 

A 

R 

Pronto, estP feita a alterapao. Experi- 
mente fazP-las e veja o que acontece em 
cada uma delas. 

Como vocP pode notar, na listagem do 
programa, sao utilizadas funpoes pouco 
usuais para computadores de 16 K ou 
mais de mempria, mas muito usadas em 
programas com no mPximo 2 K de RAM. 
Funpoes "estranhas" como VAL, mas 
muito importantes porque economizam 
bytes, diminuindo significativamente a 








jC /' '* * 9 




MEM0RIAOCUPADA: 

922 bytes 

SOMASINTATICA: 

57 077 



/**•*»*/? 




mem6ria do programa. 

Por exemplo: 

Quando fazemos: 

10 LET C= 10 NEW LINE, 
ocupamos 1 6 bytes. 

Agora, se ao inv6s disso, fizermos: 

10 LET C = VAL "10" NEW LINE 
ocuparemos 1 3 bytes. 

VocS pode constatar isso atrav6s do 
comando: PRINT PEEK 16396 + 256 * 
PEEK 16397- 16509. 



AGUARDE: 

COMO ECONOMIZAR MEM6RIA 
NO TK.NA SECAO DIGAS. 



2 CLS 

3 let k»vpl “i“ 

4. Ltrr r-upl “10“ 

5 LET R-URL “0** 

6 LET P*K-K 

7 LET B-URL "4“ 

8 LET S«R-K 

9 LET D*URL *50“ 

2® FOR F»P TO R S TEP K+K 
25 PRINT RT F,P, « M M 



*INT P 
EXT F 



4-0 NE> 

SO PRINT RT K,R; 



POMTOS: 



60 PRINT RT S,B;“0“;RT 3,B 



n I HI 9,0, U , HI 0,0, 

INKEY**“7“ THEN LET 5*3- 



70 IF 

i K ♦K ) 

75 IF INKEY f*”7“ THEN LET P«P* 
R 

77 IF 5<K THEN LET 5«R-K 
©0 LET L * INT I RND 40) 

90 IF L-K THEN GOTO URL “200" 
150 GOTO D*R 
2©0 PRINT RT 5,0; “0“ 

205 LET C * INT (RNDt(KtK) ) 

2^0 IF C-K-K THEN LET C«R-K 
230 FOR H*K TO R 

840 PRINT RT 5- IK ♦K) , C; ; RT 5 

- (K*K) ,c; ““““ 

250 NEXT H 

255 PRINT RT K,R+R;P 
260 FOR F -K TO B-K 

270 PRINT RT 3- (K-*K) ,C; ; RT 

CK+K> ,Ci ** ~ 



275 LET C~C* CC<B) ~(C>B> 

280 NeXT F 

290 PRINT RT 5- IK» K> ,C; 

300 PRINT RT R,R; ' 

310 FOR F*K TO INT IRNOTO) 40 
320 IF INKEY0*“O“ THEN GOTO URL 

**4.00“ 

330 NEXT F 

340 PRINT RT R,R; "EEBSHKH" 

350 FOR F*K TO INT <RNO»B-K ) +K 
360 NEXT F 

365 IF INKEY »«“0- THEN GOTO URL. 
5O0- 

375 PRINT RT 5,C;“.“;RT S,C;“X" 
365 PRINT RT R,R;“TefcLE P” 

IF INKEY f*“P f * THEN RUN 
390 GOTO URL “373" 

ceu 8 REcnns - BT R - R; " uoce oesooeoe 

410 PRU5E URL “200" 

*23 PRINT RT S- CK+K) ,C; “ " 

430 LET P *P — IB ♦Kl 
445 PRINT RT^R,R; " 

450 GOTO D 

500 FOR F«K TO R 

»-**♦*> ,C;-.-;RT S 

“ IRtM , C, X 
520 NEXT F 
530 LET P*P+0 

535 PRINT RT S-CK4K1,C;" “ 

540 GOTO URL “445“ 
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ARTIGOS 



14 programas 
para meditacao 




Agora, vamos a precisao num^rica do 
TK: 



Utilizando as teclas 5, 6, 7, 8 ou o 
joystick, movimente o “ponto piscante" 
gerado pelo prdximo programa para cima 
(tecla 7). 0 que ocorre quando vocS ten- 
tar sair da tela? Isto acontece em todas as 
diregoes? 



Este pequeno artigo simplesmente 
apresenta alguns programas escritos em 
Basic, cujo efeito deveria ser analisado pa- 
ra "meditagao" por todos que j£ tenham 
urn bom conhecimento de Basic-TK. 
Comecemos brincando com a tela. . . 



Flavio Rossini 



Agora, tente explicar a "assimetria" 
que ocorre nesta figura ap6s o cruzamen- 
to das duas "linhas": 



PROCRRMfi 1 

lO SLOW 
20 FRVT 
30 PUN 



PROGRRMR 2 

lO FRST 
20 5LOU 
30 RUN 



PROGRRMR 3 



10 PRINT RT 21,31;- 
20 PRINT -HRRMONIR- 



PROGRRMR «t 
5 SLOW 

10 FOR 1=0 TO 21 
20 FOR J«=0 TO 31 
30 PRINT RT 
4 0 PI. OT X,J 
•SO NEXT U 
60 NEXT I 



PROGRRMR 13 

10 SLOU 
20 LET X = IP 
30 LET V =20 
40 LET XN«X 
50 LET YN *Y 
60 PLOT XN , YN 
65 LET XNxX* ( XNKEY**"0"1 - (INKE 
Y%-' 5~ ) 

70 LET YN*Yf (rNKFYSs"7"l-(IMKe 
Y % - •6” ) 

75 UNPLOT X,Y 
60 LET X =- XM 
65 LET Y=YN 
90 GOTO 60 



Como voc£ explica os numeros aleatd- 
rios gerados pelo prdximo programa? 



PROGRRMR S 

10 SLOU 
20 PRND 
30 LET X-INT 
4.0 SCROLL 
50 PRINT X 
60 RUN 



(lOOtRND) 



Execute o programa a seguir e, no fi- 
nal, faga um LIST do mesmo . . . 



PROGRRMR 9 

1 PRINT 'LENNON- 

2 PRINT -MCCRRTNEY** 
J POKE 16510,2 

4 GOTO 2 



Agora, com o auxi'lio de um relogio, 
cronometre o tempo de execugao dos 
prdximos dois programas. . . Tente expli- 
car a diferenga* 





\ 


PROGRRMR 12 


10 SLOU 

20 FOR 1=0 TO 21 




30 PRINT T RS I;"B*;TRB 


(21-1) ; 


40 NEXT I 




v 


/ 



r 



PROGRRMR 5 

10 LET X = 1234.567990 
20 PRINT X 






PROGRRMR 6 

10 LET X=0.00Q01 
20 LPRINT X 



V 



PROGRRMR 7 



10 LET X- -4 
20 PRINT X 4 #2 



— 










PROGRRMR 10 






10 


SLOU 








20 


FOR Y=0 TO 9 






30 


FOR X=0 TO 9 






40 


PLOT X.Y 








50 


NEXT X 








60 


NEXT V 








PROGRRMR 11 








10 


SLOU 








20 


FOR Y-34. 


TO 4 3 






30 


FOR X =54 


TO 63 






40 


PLOT X , Y 








50 


NEXT X 








60 


NEXT Y 















J 



E, para finalizar, um pouco de logica. . 



PROGRRMR 14 

10 SLOU 
20 LET R = 1 
30 PRINT (NOT R> 
40 PRINT 
50 PRINT 
60 PRI.'rr 
70 PRINT 



(R >3) 

( R * 1 ) 

«R<2 RND R > 3 1 
> =1 OR R> -1) 



60 dim nsnei 
90 LET PSs ,, ECRTLC5 M 
100 LET R=LEN R* 

HO PRINT R$ ,R 
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PROGRAMAS 



SAO FRANCISCO / 



Para aqueles que tern um computador 
de 2 k de RAM e nao possuem expansao, 
a Microhobby apresenta, este m6s, dois 
programas divertidos. 

O primeiro e o "Sao Francisco uma 
cidade dos Estados Unidos que jdi sofreu 
varios abalos sismicosfpor estar construi- 
da sobre uma falha geologicaje que agora, 
(no nosso contexto) esta sendo abalada 
por um tremor de terra e sendo destrui'da 
gradativamente. Pouco a pouco vao sur- 
gindo buracos (GRAPHIC SHIFT H) devi- 
do ao terremoto e voce, o M 0" represen - 
tado na tela, como o ultimo dos habitan- 
tes, deve lutar pela sobrevivSncia mas 
nunca abandonar a sua cidade. 

Utilize as teclas 5, 6, 7 e 8 para loco- 
mover-se a esquerda, direita, descer e su- 
bir, ou do Joystick, escapando dos bura- 
cos que o ameapam. 

O jogo termina quando voce cair em 
um deles ou sair das delimitapoes da ci- 
dade. 

0 segundo 6 o "PAREDAO". Para 
quern nunca jogou paredao e quer saber 
como jogar, aqui esta sua oportunidade! 

Vocfi (GRAPHIC SHIFT 5) deve reba- 
ter a bolinha (O) que bate na parede (na 
tela, localizada a esquerda), utilizando-se 
das teclas 6 para descer e 7 para subir. 
Quando voce efetuar um total de tres jo- 
gadas, na tela aparecera o total de pontos 
conseguidos. 

Conhecendo estes dois jogos, maos a 
obra! 






Introduza os programas tomando cui- 
dado para nunca digitar as funpoes RND, 
PEEK, INKEY$, INT, VAL, PI, letra por 
letra - isso deve ser feito com o cursor 
em Q . Por exemplo para obter a fun- 
pao RND, tecle SHIFT NEW LINE T. 

Para conferir os programas, utilize-se 
da Soma Sintatica (publicada na edipao 



numero 5 de Microhobby). Para isto, co- 
loque inicialmente o programa da Soma 
Sintatica e "de" RAMTOP. Feito isto, di- 
gite os programas exatamente conforme 
as coordenadas dadas, caso contr^rio, as 
modificapoes efetuadas por voce nos pro- 
gramas, alterarao o resultado da Soma 
Sintatica. 



SAO FRANCISCO 



PAREDAO 



10 

20 
30 
4.0 
30 
60 
70 
80 
90 
100 
1 1> ; • 
110 
120 
130 
14.0 

*?'•) } 
150 
160 



PRINT 

FOR N-l TO 14. 
PRINT ”1 
NEXT N 
PRINT *1, 



LET P* 16324 
LET 5-0 
POKE P . 32 

PP INT RT 20,0, "PLRCRRa’*;S 
PRINT PT 1* ( RND« 13> , 1 + iRND« 

IF PEEK P<>52 THEN STOP 
POKE P,0 
LET 5*5+1 

LET P-P+ < INKrYla-O" 1 - f INKEV 
> +33* ( C INKEY**"6*> - ( INKEY < * 

IF PEEK P<>0 THEN STOP 
GOTO 80 



MEM0RIAOCUPADA: 

550 bytes 

SOMA SINTATICA: 

21409 



3 LET T-ORL 
10 LET 3 =ORL 
20 LET B*U«L 
30 

40 LET 



"0" 

• 1 - 

•ll** 



C«B 

R-URL ” 12’* 

43 PRINT " JOGO ” ; S 
50 PRINT RT B , URL *13";” “ 

60 PRINT RT C R . ** " 

65 IF R-URL "e** THEN LET C- INT 
(RND #5) +10 
70 LET Rsfl-PI/PI 

80 LET B-B- ( INKEY )♦( INKEY 
t»-6"> 

100 PRINT RT B,URL ~13**;"f** 

103 LET R=R-PI/PI 
110 PRINT RT C,R, -O" 

120 IF R*URL ’* - 12’* RND B-C THEN 
LET R«URL ** 12 ** 

123 LET Tr=T+-PI^PI 

130 IF R*URL •*-20** THEN GOTO OR 
L “200" 

160 GOTO URL "50" 

200 LET 5-5+PI/PI 
205 CLS 

210 IF 5 < URL **4“ THEN GOTO URL 
-a®" 

220 PRINT ” SEU PLRCRR * ";T 



MEMORIAOCUPADA: 

360 bytes 

SOMA SINTATICA: 

23565 
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O Instan-TK 
e a amnesia 
em micros. 



Taniot Hamzo 



Nao nada mais medonho para um 
digitador do que a id^ia de ver um progra- 
ma quilomatrico (aqueles com 15,9 k By- 
tes) evaporar, antes de tfi-lo gravado em 1 
fita. 

Alguns computadores mais recentes 
possuem um tipo de memdria que jamais 
esquece , a nao ser propositadamente. 
Os TKs e tantos outros computadores 
pessoais tGm o que se chama de "memdria 
vol^til", ou seja: interrompendo-se a ali- 
mentagao eldtrica, mesmo por muito pou- 
co tempo, a memdria 'esquece" para 
sempre seu conteudo. 

Para espantar este "fantasma da amnd- 
sia" de uma vez por todas, costuma-se 
usar um sistema conhecido por NO 
BREAK, que nao interrompe a alimenta- 
gao eldtrica ao micro, mesmo que haja fal- 
ta de energia eldtrica na rede, ou, num ca- 
so comum (pelo menos para mim) onde o 
usudrio, muito excitado durante um jogo, 
chute sem querer o fio da tomada. 

Em sistemas de responsabilidade, a ins- 
talagao de um NO BREAK d crucial. 0 
TK, que pode ter aplicagoes diversas. po- 
de ter diferentes motivos para conservar 
sua memdria por prazos igualmente varia- 
dos. 

Segundo minha concepgao, sao trds as 
categorias de NO BREAK: 

1. INSTANTANEA: Quando se quer 
que a memdria nao se perca por alguns 
instantes, enquanto se troca de tomada; 
quando houver instalagao eldtrica intermi- 



tente (com bruscas variagoes de ten sao ou 
em tomadas, extensoes ou "benjamins" 
com mau contato, evidenciado quando se 
mexe neles para ligar um gravador, por 
exemplo) ou ainda quando aquele seu 
querido priminho vem te visitar e quer 
descobrir o que acontece se o compu- 
tador for desligado quando voc£ est3 
usando. A memdria ser3 mantida por 
alguns minutos. 

2. PORTATIL: Quando se quer que a 
memdria seja mantida, enquanto o 
computador d transportado de sua casa 
atd a casa de um colega; da escola atd o 
clube ou do escritdrio atd um cliente. A 
memdria podera ser mantida por algumas 
horas. 

3. PERPETUA: Em sistemas realmen- 
te NO BREAK, que nao podem parar: 
alarmes residenciais, comerciais ou indus- 
trials; controle de processos; em soft- 
houses e em ocasioes em que o micro de- 
va funcionar indefinidamente sem inter- 
rupgoes, independente da disponibilidade 
da rede eldtrica. A memdria poderd ser 
mantida por dias. 

Abordarei o primeiro e o segundo ca- 
so, que me parecem mais interessantes 
para o leitor, pordm ficarei atento a cor- 
responddncia pedindo complementagao 
do artigo. 

Chamei o projeto de INSTAN-TK e 
seu esquema eldtrico pode ser visto na fi- 
gura 1 . 



Todos estes componentes podem ser 
facilmente encontrados em casas do ra- 
mo. Atengao para a polaridade dediodos 
e do L.E.D., bem como a sua sensibilida- 
de ao calor excessivo. Verifique as liga- 
goes antes de ligar o aparelho. 

FUNCIONAMENTO DO CIRCUITO: 
Apesar de ser um circuito aparentemente 
simples em sua configuragao fisi- 
ca, hd diversos detalhes dindmicos acumu- 
lados em cada componente. Farei uma ex- 
planagao do funcionamento conjunto, 
descrevendo a(s) fungao(oes) de cada 
parte. 

Ao se ligar o plugue da fonte no circui- 
to, atravds de J1 e este ao computador 
atravds de J2, observa-se: 

Com a fonte ligada, haverd passagem 
de corrente para o computador atravds de 
D1 , que estd diretamente polarizado, sem- 
pre que a fonte estiver ligada. No entanto, 
quando ela nao for mais capaz de suprir 
energia, ficard o diodo D1 inversamente 
polarizado, nao conduzindo energia das 
pilhas para outro lugar senao para o com- 
putador. Com isso, ficarao com carga des- 
tinada exclusivamente para o compu- 
tador, garantindo seu funcionamento. 
Aldm disto, este diodo melhora a atuagao 
da fonte, aumentando sua retificagao, sua 
impeddncia e ainda reduzindo em cerca 
de 0,6 volts sua tensao de saida, o que 
pode contribuir para minimizar o aqueci- 
mento do regulador interno de tensao do 
computador. 



jack da fonte 



* J1 

0 





LISTA DE MATERIAL: 



B1 




Figura 1 INSTAN-TK. esquema eldtrico. 



Quantidade Componente/Tipo 


Legenda 


4 


Diodo 1N4002 


D1, D2. 
D3 a D4 


1 


L.E.D. da qualquar cAr 


LI 


1 


Intarruptor da 1 p6k> 


SI 


1 


Jack f4mea 


J1 


1 


Jack macho 


J2 


1 


Rasistor da 820 f2 , 1/4 W 


R1 


6 


Pilhas alcalinas da 1,5 V 


B1 


6/1 


Suporta(s) para pilhas 


— 


1 


Caixa pltstica 


— 


Diversos: 


fio, solda, place da circuito 
ou ponta da tarminais, ate. 


impresso 
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0 L.E.D. (diodo emissor de luz) LI 
serve para se monitorar a atividade da 
fonte, apagando, quando ela nao estiver 
operando e atestando seu funcionamento, 
quando estiver ligada. 0 resistor R1 limi- 
ta o consumo do L.E.D. em cerca de 0,01 
amperes. 

0 interruptor SI, albm de proporcio- 
nar a interrupt da corrente, desligando 
o aparelho, tambbm pode ser util como 
um RESET, pois nao tendo a inbrcia dos 
eletroliticos da fonte, proporciona um 
rbpido POWER-UP e POWER-DOWN. 

Os diodos D2, D3 e D4 formam, em 
sbrie uma diferenga de potencial tal que 
os 9 Volts provenientes da associagao das 
pilhas acabam se equiparando aos vales da 
flutuagao da tensao da fonte. Estes vales 
podem chegar prbximos a 7 volts, equili- 
brados com os 9 menos os 2 volts resul- 
tantes dos trbs diodos. No protbtipo, a 
d.d.p foi de 0,015 volts, insuficientes pa- 
ra provocar uma descarga nas pilhas (que 
alibs andam bem carinhas). Estes diodos 
tambbm impedem que os picos de tensao 
da fonte polarizem reversamente as mes- 
mas; fazem com que sejam mais lenta- 
mente consumidas, aumentando sua vida 
<Jtil. A impedbncia adicional que estes 
diodos criam, tambbm contribui para re- 
duzir a corrente de descarga. 

As pilhas substituem a energia da fon- 



te autombtica e instantaneamente ap6s 
sua falta, o que torna imperceptivel ao 
usubrio e ao computador saber se estb 
consumindo energia da rede, via fonte ou 
das pilhas. 

Quando em teste, o INSTAN-TK foi 
capaz de suprir a ausbncia da fonte por 1 3 
horas e 56 minutos ininterruptamente, a 
um consumo constante de 600 mA no 
modo SLOW, pois verifiquei ligeiro decli- 
nio no consumo quando o computador, 
em modo FAST, nao mostrava a tela. 
Conclui-se entao que o consumo varia se a 
tela b mostrada ou nao e que o compu- 
tador consome menos energia em modo 
FAST e rodando um programa (sem mos- 
trar a tela) do que em SLOW ou durante 
uma instrugao PAUSE ou ainda parado 
(ocasioes em que a tela b mostrada). 

Condigoes de teste: 

Computador usado: TK82-C sem expan- 
sao de membria. 

Caracteristicas das pilhas: 6 pilhas novas 
tipo alcalina, tamanho grande, 1 ,5 V cada. 
Circuito: INSTAN-TK original, aqui des- 
crito. 

Efeitos colaterais: nenhum efeito colate- 
ral foi observado sob condigoes nor mais 
de temperatura e pressao. 

Melhoras adicionais: melhor imagem, livre 
de interferbncias da rede e menor aqueci- 
mento do computador. 



di ri 




Figura 2: INSTAN-TK. lay-out da placa de circuito impresso. 



Dependendo da aplicagao especifica 
do computador, o tempo que o aparelho 
b capaz de substituir a fonte pode dimi- 
nuir com o uso de perifbricos, tais como 
expansao de membria, impressora, etc. 
Se este for o seu caso ou se assim preferir, 
uma bateria de maior porte (e com con- 
sequente maior potbncia) de 9 Volts po- 
derb ser usada (como aquelas usadas por 
fotbgrafos para flashes eletrbnicos, por 
exemplo), que ainda estara o aparelho na 
categoria de "temporariamente portbtil”, 
segundo os itens 1 e 2. Pode-se ainda usar 
pilhas recarregaveis, com a mesma vanta- 
gem da bateria de flash; longa durabilida- 
de e possibilidade de recarga. 

Por experibncia prbpria, me sinto em 
posigao de aconselhar a montagem e uso 
(ou sb o uso) do INSTAN-TK pela sua 
grande utilidade, seguranga (esquega a to- 



mada) e economia (de tempo e pacibn- 
cia). E por falar em economia (o que agra- 
da a gregos e troianos e principalmente a 
brabes e judeus) o aparelho tern a caracte- 
ri'stica de nao inutilizar completamente as 
(caras) pilhas, que ainda ficam com carga 
suficiente para fazer um r^dio port^til 
fungionar (principalmente as alcalinas). 

A figura 2 mostra um exemplo de 
lay-out da placa de circuito impresso do 
INSTAN-TK (que, altes, poderia muito 
bem ser batizado de JUMBO. Nao b ver- 
dade que os elefantes jamais esquecem?) 
com as devidas indicagdes de onde e co- 
mo montar os componentes. Aos pontos 
da placa marcados com +B1 e — B1 , solde 
os terminais do porta-pilhas, devidamente 
polarizados. 

Atb o prbximo numero! 



( SindcdrPiace ^1 



O lugar 

compati'vel com 
os mini-micros. 



(Z X 81, TK 83, TK 85, 

CP 200, APPLY 300, 

TS 1000, RINGO, 

AS 1000, ETC...) 

MICROS 
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Sinclair Place do Brasil 
Com. de Microcomputadores Ltda. 



Rua Dias da Cruz, 215 - Sala 804 
Ed. Meyer Golden Center 
CEP 20.720 - Meyer - Rio de Janeiro - RJ. 
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GRATIS: UM MICROCOMPUTADOR 

CURSOS 



TURMAS 

MANHA - TARDE - NOITE 
INCLUSIVE AOS SABADOS 

Turmas especiais para 
TK 82 - TK 83 - TK 85 - CP 200 

Cursos para alunos a partir 
de 10 anos de idade 



MATRICULAS 
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Plnhelros S.P. 
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RESPOSTA DO 
QUEBRA-CABEQA 



L.G.M 



@ MENSA 

International 






Para nossa surpresa e grande satisfapao 
do nosso amigo e colaborador Nabor 
Rosenthal, recebemos a tempo para publi- 
car nesta edi<pao, uma solucao parcial do 
Quebra-Cabepa proposto no numero ante- 
rior A proeza deve-se a Gamal Saty, que 
descobriu ex i stir uma men sagem codifi* 
cada na sequencia de pulsos recebida 

Ao que nos parece, ele nao teve tempo 
de analisar o conteudo da mensagem, de 
modo que continuamos aguardando que 
algum de nossos leitores a interprete e tra- 
duza as informapoes nela contidas (essa 6 
a segunda parte do Quebra-Cabepa). 

Como todo "ovo de Colombo" a pri- 
meira parte desse Quebra-Cabeca pareceu- 
nos muito simples (depois de resolvida), 
pois 3 bastante Idgico ao pensarmos em 
enviar uma mensagem ao espapo, cons- 
trui-la na forma de uma matriz cujo nu- 
mero de elementos seja o produto de dois 
primos. Haja visto a mensagem enviada 
aqui da Terra, atrav^s do radiotelescbpio 
de Arecibo . cuja forma 6 a de um ret£n- 
gulo de 73 linhas e 23 colunas (numero 
total de elementos = 73x23 = 1679) - 
veja figura 1 Uma sequSncia de pulsos 
com essa caracteristica (numero de pul- 
sos = produto de dois primos) 6 muito 
mais facilmente transformada em uma 
matriz, visto que so uma forma de se 
28 MICROHOBBY 



fazer isso! No caso de nosso Quebra- 
Cabeca, o numero total de pulsos 6 931. 
Decompondo-o obteremos 

931 31 

31 31 =* 931 = 31 x 31 

1 

Ou seja, ele 6 exatamente o produto de 
dois primos! 

Veja, a seguir, como Gamal obteve a fi- 
gura a partir dos pulsos 

A sequencia consiste de exata- 
mente 961 pulsos (0 e Vs) que for mam 
um quadro de 31 linhas por 31 colunas 
(31x31). 

O primeiro programa apresentado , co- 
loca os numeros diretamente numa ma- 
triz AS(31 ,31) o que facilita em muito o 
programa , porim o programa numero 
dois , embora um pouco mais extenso, fa- 
cilita muito a entrada de dados, pois os 
mesmos entram de acordo com a sequSn- 
cia publicada na revista, ou seja, a cada 
16 pulsos, sendo assim mais fdcil carregar 
os dados. Os mesmos sao co/ocados numa 
matriz AS (16 x 16), logo em seguida rea- 
grupados numa matriz com uma unica li- 
nha e depois transformada em outra ma- 
triz (esta finalmente com 31 linhas e 31 
colunas). 



O quadro formado pela sequencia de 
0 a Vs, indica o desen ho de uma antena 
de micro-ondas ou mesmo um radio-te/es- 
cdpio , sendo possivel se ver no canto su- 
perior direito, o logotipo do TK. 

Este desenho foi possivel, plotando-se 
um grafico a partir da matriz de 31 linhas 
por 31 colunas. 

Agora, pode-se fazer a opcao: 

Programa LGM1, mais curto e simples, 
por&m os dados entram em uma I inha de 
31 pulsos, apresentando cert a dificuldade 
para se introduzir os dados da maneira co- 
mo foi pub/icado pela revista. 

Programa LG M2, que embora mais exten- 
so, facilita a entrada de dados, pois o mes- 
mo entra numa I inha de 16 pulsos. 

A listagem de LGM1 

1 RFM GRNRL SRTY 
P PE M LGM 1 
10 DIM RS <3 1,3 11 
15 FOR N-l TO 31 
20 SCROLL 

P 5 PRINT •*«*(•*; N, “1 m" 

30 SCROLL 
35 INPUT R*(N> 
dO SCPCU L 
45 PRINT R 9 CN> 

50 SCROLL 

55 PRINT "HOUUE ERRO 7 CS/'N) ** 

GO IF INKCY*="'* THEN GOTO GO 
65 IF INKEY *»"S" THEN GOTO 20 
70 NEXT M 
72 CL5 

75 REM **»*#«*«******«*•»****« 

80 ERST 

65 TOR Id TO 31 
90 TOR U=1 TO 31 

95 IF RSCX,U)b"0" THEN PLOT U , 

1©0 NEXT U 
105 NEXT I 
UP STOP 
120 5RUE "LGNO” 

130 PR I NT "TECLE "-GOTO 60”- PR 
RR EXECUTOR O PROGRRMR SEH 
PERDER OS DODOS" 

140 STOP 



. . . Devido a certa pressa para enviar a so - 
luqao, acred ito que no program a 1 
(LGM1), nao digitei corretamente os da- 
dos , pois no LG M2, hd uma pequena di - 
ferenqa no quadro formado que , a/dm das 
caracteristicas ja mencionadas, a present a 
tambdm na parte inferior direita, a si/hue - 
ta de um possfve/ ser (sera o E. T.?\ ). Co- 
mo ja disse, o programa 2 apresenta intro- 
dugao de dados de maneira mais fdci/, 
por isso os dados foram reco/ocados neste 
programa e que por isso , acred ito estar 
com o desenho correto. 

Devido a certa dificuldade em chamar 
LG M2 regrave i o programa em ve/ocidade 
norma/ nas seguintes posiqoes: 210-247; 
260-300; 310-355 Gamal Saty - Uniao 
da Vitbria, PR. 




Mensagem enviada com o radiotelescbpio de 
goes convenientemente interpretadas. 



A listegtm de LGM2 



1 REM CRMRL SRTY 
S REM OUtBRR-CfiBECR L . O . M . 

10 DIM R> (Bl, 161 

20 FOR N = 1 TO 61 

21 SCROLL 

?p PRINT ”R) c-; N; -> 

90 INPUT R«(N> 

96 PRINT R$ (H) 

♦0 SCROLL 

4 1 PRINT ”©UER TROCRR RLGO ** 
S^N) ** 

42 IF INKEY)-"” THEN GOTO 42 
49 IF 1NKEY$=”S" THEN GOTO 21 
60 NEXT N 

00 REM ft«ft-ftftft#******+«*ft+”**** 

100 DIM 01(31,31) 

110 LET ES=R| (II 
120 FOR Ns2 TO 61 
130 LET E*°Et+Rt(N> 

140 NEXT N 

160 REM ftftft***#*#»«t**ft+*«ft**» 

100 LET G = 1 

102 LET H = 31 

200 FOR 1-1 TO 91 

210 LET D*(I>-E*(Q TO M> 

220 LET G-G+91 
230 LET HcH+31 
240 NEXT I 

260 REM ft*** ftiftftft-ftftftftftftftftft-fft** 

900 FOR 1=1 TO 31 
310 FOR U=1 TO 31 

320 IF » M e- THEN PLOT U , 

330 NEXT J 
340 NEXT I 



3S0 STOP 

360 SRUE "LC)fl" 

370 PRINT "TECLC ”* GOTO 300”” P 
RPR EXECUTRR O PROGRRMR SEM PERD 
ER OS PROOS” 

300 STOP 



Figura 2 

ffl 








Figura 1: 

Numeros de 1 a 10 

Numeros atdmicos do Hidroglnio, Carbono. 
Nitrogdnio. OxigSnio e F6sforo. 



F6rmulas dos agucares e bases nos nucleoti- 
deos do ONA. 



Numeros de nucieotideos do DNA. 

Representagao da estrutura do DNA. 
Forma humane. 

Altura da forma humana. 



Populagao sobre a Terra. 
Sistema solar. 



Radio-telescopio de Arecibo . 

Diametro do radiotelescbpio. 

ida pelo Gamal no TK e a direita, as informa- 
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Relagao 

das lojas autorizadas 
a receber 
assinaturas 



A.D. DATA COM. SERV. DE 
informAtica ltd a. 

Rua Joao Ramalho, 818 — SP 

ALLCOLOR COM. E REPRESENT ACOES 
LTDA. 

Rua Carlos Porto. 85 -Jacarei'. SP 
CEP 12300 

BEL - BAZAR ELETR6NICO LTDA. 

Av. Almirante Barro*). 81 - Lj. C - RJ. 

BRASIL TRADE CENTER COM. E 
PARTICIPATES S/A. 

Av. Epitdcio Pessoa, 280 - RJ - CEP 22471 

CASA DO MICROCOMPUTADOR SIST. E 
PROC. DE DADOS LTDA. 

Av. Anhanguera, 2574 - Centro - Goidnia. GO 
CEP 74000 

CENADIN - CENTRO NAC. DESENV. DA 

informAtica 

Rua Jos6 Maria Lisboa. 580 - SP 

CESPRO - CURSOS DE ESPECIALIZACAO 
PROFISSION A L LTDA. 

Rua Republica Arabe da Siria. 15 — S/207 
llha do Governador. RJ — CEP 21931 

CHIP SHOP COMPUT ADORES LTDA. 

RuaOfdlia, 248 - SP 

COMPUTEC LTDA. 

Rua Mairinque, 66 - CEP 04037 - SP. 

COMPUTER CENTER 

MICROCOMPUTADORES MAO. E SISTEMAS 
LTDA. 

Rua Lopes T rovao. 1 34 — Slj. 247 Center V - 
Icarai - Niterdi. RJ - CEP 24220 

COMPUTER HOUSE - JOAO CANDIDO 
COLLADO 

Av. Andrade Neves. 1254 - Campinas. SP 

COMPUTRONIX VENDAS E SERVIQOS 
LTDA. 

Rua Sergipe, 1422 Belo Horizonte, MG 
CEP 30000 

DATA SOLUTION LTDA. 

Av. Eusdbio Matoso, 654 — SP 

didados informAtica e adm. ltda. 

Rua Minas Gerais. 655. s/602 - Divindpolis, 
MG 

ELDORADO COMPUT ADORES E 
S I ST E MAS LTDA. 

Rua Visconde de Piraj*. 351 - Lojas 213/4 — 
RJ-CEP 22410 

ELETROSOM LTDA. 

Rua da Concdrdia. 287 — Recife. PE 
CEP 50000 
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ENSICOM - ENG. DE SISTEMAS E COMP. 

R ua Marques do Herval . 409 — 1 9 . s/1 5 — 
Taubatd. SP — CEP 12100 

ENTEC REPRES. LTDA. 

Rua Lauro Muller. 700 - Itajai, SC 
CEP 88300 

exatron informAtica e eletrOnica 

LTDA. 

Alameda dos Arapanes. 841 - CEP 04524 — SP 

EXPOENTE COM. E REPRESENTAqOES 
LTDA. 

Av. Siqueira Campos, 838 - CEP 57000 - 
Maceid. AL. 

GRUPO D.G.B. CONSULTORIA ADM. 
EMPRESARIAL S/C LTDA. 

Rua Dr. Murici. 706 - ala "B". 1? — Curitiba. 
PR 

A/C Sr. Dirceu Guimaraes Brito 

GUAQUMAQ - MAQ. E EQ. P/ ESCRIT0RIO 
LTDA. 

Rua Antonio Gongalves Teixeira, 97 - 
Mogi-Guapu. SP 

GUARANI PRESENTES 

Av. Senador Vergueiro, 4964 - 1? — s/6 
Rudge Ramos. S B. Campos. SP — CEP 09720 

HECTOR A. FERNANDEZ - MIRAGE CINE 
FOTO 

Rua Gal. C4mara, 648 - Sta. Barbara D'Oeste, 
SP - CEP 13450 

LIVRARIA POLIEDRO 

Rua Aurora. 704 - SP - CEP 01209 

LOG COMPUTADORES LTDA. 

Ppa. Candido Dias Castejon. 34 - Slj. — 

S. Josd dos Campos. SP - CEP 1 2200 

MAPSS - ENG* COM. E IND. LTDA. 

Rua Getulio Vargas. 186 - T. Otoni, MG 
CEP 39800 

MAURITINO PIRES SILVEIRA 

Rua Manduca Rodrigues. 924 - Sant'Ana do 
Livramento. RS 

MEMOCARDS - MATERIAIS DIDATICOS 
LTDA. 

Rua Amador Bueno. 855 - Ribeirao Preto. SP 

MICROBYTE SIST. E EQUIPTOS. 

COMPUT ACIONAIS LTDA. 

Rua Buenos Aires. 41 — 39 — RJ. 

MICROCENTER COMPUTADORES LTDA. 

Av. Santos Dumont. 2749 — CEP 60000 
Fortaleza. CE 



MICRO CENTER INFORMATICA LTDA. 

Rua Conde do Bonfim. 229 - Lj. 310/2 — 
Tijuca, RJ-CEP 20520 

MICRODATA IMPLANTACAO FISICA SIST. 
LTDA. 

Rua Montreal. 16 - SP - CEP 02832 

MICROESPAQO COM. E REPRESENTACOES 
LTDA. 

Av. Barao do Rio Branco, 2288/1501 - Juiz de 
Fora. MG -CEP 36100 

micron informAtica ltda. 

Rua Benjamin Constant. 56 - si. 804 — Vigosa, 
MG - CEP 36570 

MICRO PROCESS COMPUTADORES LTDA. 

Al. Lorena, 1310 - SP - CEP 01424 

MORGEN - COM. DE COMPUTADORES 

Rua Mai. Deodoro. 51 - Gal. Ritz, 149 
s/1405-A- Curitiba. PR 

NADAIS EQ. DE SOM LTDA. 

Rua Amador Bueno. 213 - Santos. SP 

NASA SHOP EQUIPTOS. ELETRONICOS 
LTDA. 

Rua "4", 1042 - Centro - Goidnia, GO 

NUCLEO DE ORIENTAQAO DE ESTUDOS 

Av. Brig. Faria Lima, 1451 — Conj. 31 
01451 - S. Paulo - Fone: 813-4555 

PROSERV PROC. DE DADOS CURSOS E 
REP. LTDA. 

Lgo. 9 de Abril. 27 - s/628 - Ed. Cecisa 1 1 - 
Volta Redonda, RJ 

RC MICROCOMPUTADORES LTDA. 

Av. Estados Unidos. 983 - CEP 13400 - 
Piracicaba, SP. 

RITZ CINE FOTO LTDA. 

Rua Frei Caneca. 7 — Santos. SP — CEP 1 1 100 

SHOP COMPUTER CEDM LTDA. 

Av. Sao Paulo. 718 — Londrina, PR 
CEP 86100 

SIETEL SERV. INST. ELETRICAS E TELEC. 
LTDA. 

Rua Cel. Joaquim Neto, 32 — Sta. Rita do 
Sapucai . MG - CEP 37540 

SISCOMP SISTEMAS E COMPUTADORES 
LTDA. 

Rua Tiburcio Cavalcante. 298— Fortaleza. CE 

TELEMATICA COM. E IND. LTDA. 

Rua Figueiredo de Magalhaes, 286 — s/616 
Copacabana. R J — CEP 22031 

TELEVIDEO LTDA. 

Rua Marques do Herval. 157 — Recife. PE O 



PROGRAMAS 




trAnsito 



VocS se encontra de passagem em uma 
metrdpole, com um trSnsito "de doido" 

0 seu objetivo d andar a maior quilome- 
tragem possi'vel, na avenida principal, evi- 
tando os outros motoristas que - veja 
s6! - insistem em seguir o caminho opos- 
to ao seu, sem respeitar sequer a mao de 
direcao! AI6m disso, vocS nao pode subir 
na calpada, sob pena de perder a carta de 
motorista e impedido de continuar a jor- 
nada (nesta cidade, detestam forastei- 
ros. . .} 

Introdupao do Programa 

Este programa possui um trecho em 
linguagem de maquina Para introduzMo, 
voc§ deve inicialmente digitar o programa 
mostrado na figura 1. Neste programa, a 

1 inha 1 REM devera conter 50 pontos 



2 FOP 1 = 16514. TO 16362 

3 SCROLL 

4 PRINT I . •* . . 

3 INPUT N 

6 PRINT N 

7 POKE I..N 
3 NEXT I 



fig. 1 



Apos a introdugao, digite RUN e intro- 
duza os numeros (decimals) da listagem 
(figura 2). 



LISTRGEM DECIMRL 




16514. .42 


16515. . 12 


16516. .64 


16517. . 17 


16518 . . 114 


16519. .2 


1652D. .25 


16521 . .229 


16522 . . 6 


16523. . 33 


16524 . . 35 


16525. . 15 


16526 . . 253 


1652" . .229 


16528 . . 209 


16529. .225 


16530 . . 14 


16531 . . 19 


16532. . 6 


16533. .33 


16534 . . 126 


16535. . IS 


16536. . 27 


16537. . 43 


16538. . 16 


16539 . . 250 


16540 . . 13 


16541 . . 32 


16542 . . 245 


16543 . .201 


16544. . 6 


16545 . . 24 


16546 . . 42 


16547. . 12 


16548 . .64 


1 6549. .35 


16550. . 126 


16551 . .254 


16552 . . 118 


16553. .40 


16554. .5 


16555. . 196 


16556 . . 128 


16557. . 119 


16555 . .24 


16559 . • 2 4*3 


16560 . . 16 

16562. . 201 


16561. .243 



fig. 2 



Ao terminar, digite LIST A linha 
REM conter^ os v^rios caracteres que cor- 
respondem aos cddigos em linguagem de 
maquina (figura 3). 



1 


REM E£RND)? b ; FA5T /S7f 


CLE 


RR FAST SGN LPRINT <-*5»4 PRINT 


TRN //t£RN070' J / PRINT ( NEXT 


TRN 


2 


FOR I - 165 14 TO 16562 




3 


SCROLL 




4 


PRINT I; ” . . ” ; 




S 


INPUT N 




6 


PRINT N 




7 


POKE I , N 




6 


NEXT I 





fig 3 



Digite POKE 16510,0 para evitar que 
voc£ distraidamente apague ou edite a li- 
nha 1 , perdendo todo o programa em lin- 
guagem de maquina. Sua linha REM tera 
agora o numero 0 e, desta forma, nao po- 
de ser editada, nem apagada Uma vez to- 
mada esta providGncia, apague uma por 
uma as linhas de dois a oito. 



©■REM E£RND)'»»; FflST ,»S7C CLE 
RR FR5T 5GN L PR INT <^5S4 P(?INT 
TRN //ECRND71V PRINT ( NEXT TRN 



A seguir, digite o programa em BASIC 
mostrado na figura 4. 



O programa 

Ao terminar de digitar o programa em 
BASIC, digite RUN Na tela vocS ver3 as 
instrupoes. Voc£ pode escolher cinco ti- 
pos de trSnsito, digitando um numero en- 
tre 1 e 5. Lembre-se: o numero de moto- 
ristas doidos que aparecerao na sua f ren- 
te, 6 diretamente proporciona! ao numero 
digitado. 

Para desviar-se desses malucos, utilize 
a tecla 5 para mover seu carro "$" para 
esquerda e a 8 para mov6-lo para a direita 
No canto inferior voc£ pode acompanhar 
a sua trajetoria, verificando o numero de 
quildmetros percorridos 

Caso voc6 consiga desviar dos outros 
motoristas, simbolizados por " @ " ou 
subir na calgada, o computador, um seve- 
ro guarda de tr£nsito (mas que s6 pune 
quern 6 estranho na cidade, no caso vocS) 
Ihe impedird de prosseguir, tomando-lhe a 
carta e indicando o local do acidente. 

Apesar de severo, o computador -guar- 
da Ihe dar3 sempre uma nova chance de 
recomegar, desde que volte ao ponto ini- 
cial da avenida. Se vocS aceitar, digite 
"S", se nao, "N". 

Boa sorte! Mas cuidado para nao ficar 
neurdtico. O 




MEMORIA OCUPADA: 

2.1 1 1 bytes 

00REM ECRNO)?*: ERST /B7( CLC 

RR FRST SGN LPRINt <,*5 • * gg X 2lki 
TRN //CCRN0717/ PRINT C NEXT TRN 

1 REM M1CROMOBBY 
3 GOTO 2000 
4. LETT HS*0 
9 RRNO 
6 CL 5 

10 LET X * 14 

11 POKE 16418.0 

12 PRINT RT 21 . 0, “RECORDC: “ , MS 

RT 21 • 13 • -PONTOS O PT 22 



30 PRINT RT 1,0, ‘0000000000000 
lOOOOOOOOOOOOOOOOOO “ ; RT i , 1 1 ; “ M 



40 NEXT I 

60 PRINT RT 0,0; “0000000000000 
OOOOOOOOOOOOOOOOOOO” 

60 LET L*1 1 
70 LET TI-0 
60 REM COMECO 

100 IF RND > . 6 THEN GOTO 600 
110 LETT R-U3R 16614 
120 PRINT RT 1 ,L, 

130 PRINT RT 11,X _ 

140 LET X-X* (INKEY$-“8“> - C INKEV 
• *“5“ 1 

141 ir PEEK (PEEK 16396 4P56*PEE 
K 16397+331+X) <>136 THEN GOTO 10 
00 

146 LET T I — T X ♦ 1 

146 PRINT RT 2 1 , 13; “ PONTOS : ” ; T I 
150 PRINT RT 10,XJ 8“ 

170 ir PNDcSK THEN PRINT RT 1,R 
ND *5 ♦L , 

100 GOTO 100 

500 LET G-INT (RND#8>3) 

505 LET 0-1 

610 IF L > 14 THEN LET Q--1 
515 FOR F — 1 TO G 
520 LET R-U5R 16514 
525 LET L — L 4-0 
530 PRINT RT l # L; M 

536 PRINT RT 11, X; _ 

540 LET X-X ♦ ( INKEV 0 — “0” ) — ( INKEV 
0— ”5“ ) 

552 IF PEEK (PEEK 16396 4256 *PEC 
K 16397+331+X) <>136 THEN GOTO lO 

555 LET T I —T I ♦ 1 

557 PRINT RT 2 1 , 13; "POMTOSr TI 

660 PRINT RT 10, X; 

560 IF RND < 5K THEN PRINT RT 1,R 
ND454L; 

590 NEXT F 
£39 GOTO 100 

1000 PRINT RT 10,X-1; **• S. **;RT 11 
, X-l; ”>#■“ 

1005 FOR F - 1 TO 26 

1006 LET C-U5R 16544 

1007 NEXT F 

1010 POKE 16416,0 
1015 IF TI>H5 THEN LET M3-TI 

1020 PRINT RT 21,0; “RECORDS MS 

; RT 23 ,8; “OUTRO JOOO I5/NI7" 

1030 POKE 16418,9 

1040 IF INKEY 9 - “ S" THEN GOTO 6 
1050 IF INKEY f-“N" THEN 5TOP 
1060 GOTO 1040 
2000 REM INSTRUCOE5 

2020 PRINT RT 0 , 0 ,“»*»**»***» * T 
RRNSITO **»*•*#**»*“ 

2030 PRINT RT 2,0; “NESTE JOGO RS 
PR INC I PR 15“ , ” INSTRUCOES SRO:“ 

2032 PRINT 

2033 PRINT 

2034 PRINT 

2040 PRINT ,,,,“5 (MOVER Ps CSOU 
ERORl “ , “0 (MOVER P/ D IRE ITR) “ 

2050 PRINT “SEU CRRRO E O “”f 

2060 PRINT “VOCE DEVE EVITRR 05 
OUTROS“ , “CRRROS, OURNDO ELES VIC 
PEM“ , “RO SEU ENCONTRO DO TIPO “ “ 

2070 PRINT 
2060 PRINT 
1 R 51 “ 

2090 INPUT SK 

2100 IF SK<1 OR SK>5 THEN GOTO 0 
090 

2110 LET SK-SK/10 
2120 GOTO 4 
2130 STOP 

3000 SRVE “TRRN8ITO 
3010 RUN 
3020 STOP 



’ESCOLMR O TRANSITO f 



fig. 4 
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dentro 

do 



® Apple 6 marcs regis trade 
de Apple Computer, Inc 



l&iili 




Prof. Wilton Jo«4 Tucci — Coorden»dor da Pioffot E«p«ci«is da Escola Ex pari mental Puari Domut. 



Muitos de n6s provavelmehte ja tive- 
ram o desejo. ou talvez apenas a idbia, de 
alterar, de alguma forma, a linguagem 
BASIC, para obter algum efeito especial 
no seu computador. 0 maior problema re- 
side no fato de que, estando a linguagem 
gravada em ROM (e nao em RAM, como 
b feito em alguns com pu tad ores ) , nao b 
possivel alterar o seu conteudo atravbs de 
comandos no teclado. 

0 primeiro impulso dos mais interes- 
sados seria o de fazer, ou mandar fazer, 
um novo conjunto de ROMs, com as mo- 
dificagoes desejadas, e substituir os origi- 
nal. Porbm, uma pessoa mais criativa, 
que conhega um pouco do hardware do 
Apple, logo lembrara que existe o cartao 
perifbrico de 16K, que pode, sob controle 
do computador, substituir a ROM princi- 
pal. Todo o seu conteudo pode ser trans- 
ferido a RAM do cartao, e as modifica- 
goes efetuadas por POKEs ou pelo moni- 
tor e gravadas num disco. 

A nossa equipe, pensando nisso, deci- 
diu tomar esse caminho, desenvolvendo 
um pequeno programa que serve como 
exemplo para os que quiserem fazer as 
suas mod ifica goes no BASIC. 0 programa 
permite ao seu usubrio alterar as palavras 
reservadas do Applesoft, podendo substi- 
tuir, por exemplo, HOME por CLS ou 
PRINT por MOSTRE. 0 programa, como 
o leitor ja deve ter percebido, exige a pre- 
senga do chamado language card , o cartao 
de expansao de 16K, sem o que este nao 
funcionarb como esperado. Para os que 
nao tiverem este perifbrico, veremos, nos 
prbximos artigos, como alterar este mes- 
mo programa para permitir a modificagao 
dos comandos de DOS, que reside em 
RAM. 



O programa 



Antes de podermos entrar no funcio- 
namento do programa, devemos conhecer 
o formato em que estao armazenadas as 
palavras reservadas no Applesoft A lista 
de 107 palavras se encontra gravada, se- 
quence I men te, a partir da posigao 53456. 
Elas estao codificadas em ASCII, com o 
bit 7 no estado 1 indicando o final de 
uma palavra. Como as primeiras palavras 
sao END e FOR, os primeiros 6 bytes sao: 
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posigao 


conteudo 


ASCII 


53456 


69 


E 


53457 


78 


N 


53458 


196 


D 


53459 


70 


F 


53460 


79 


0 


53461 


210 


R 



0 programa comega colocando numa 
matriz as palavras reservadas, separando- 
as quando o cbdigo de um caractere b 
maior que 1 27 (bit 7=1), estando def ini- 
das, nas varibveis P e NP, respectivamente, 
a posigao de membria inicial da lista de 
palavras e o numero de palavras na lista 
(linhas 100-140) Como a lista tern tama- 
nho fixo na membria, nao podemos 
aumentar seu tamanho total, que b a so- 
ma dos tamanhos das palavras individuals. 
Para que esse limite nao seja ultrapassado, 
a variavel NB mantbm a contagem do nu- 
mero de bytes que sobram depois de uma 
alteragao. 

A seguir, o programa pede uma pala- 
vra, coloca um 1 no bit 7 da ultima letra 
(linhas 150-170) e procura palavra na ma- 
triz A$( ). Nao existindo, b dado um avi- 
so; se a palavra digitada existe na lista, b 
pedida uma nova palavra para substitui-la, 
com o cuidado de nao ultrapassar o tama- 
nho maximo da lista (linhas 180-200). 
A contagem de bytes sobrando b atualiza- 
da, o ultimo byte da nova palavra tern seu 
bit 7 igualado a 1 , somando-lhe 128, a pa- 
lavra b substituida na matriz, e a exe- 
cugao passa a linha 150 para pedir uma 
nova palavra ou terminar (linhas 210- 
220 ). 

No final, o usubrio tern a opgao de fa- 
zer ou nao, a alteragao final no cartao de 
RAM (230). Se ele quiser fazb-lo, o 
language card b preparado para receber a 
cbpia da ROM e b instalada na membria, 
um pequeno programa em linguagem de 
mbquina para chamar a rotina MOVE do 
monitor, junto com os parb metros neces- 
sbrios para a sua execugao (240) Partindo 
da posigao P, a linha 250 POKEeia no car- 
tao de expansao, caractere por caractere, 
o conteudo da matriz de palavras A$( ). 
0 POKE da linha 260 faz com que o 
RAM do cartao substitua o ROM da me- 
mbria principal, tornando efetivas as mo- 



dificagdes feitas (atb que, b claro, seja des- 
ligado o computador). 

A linguagem modificada pode ser ar- 
mazenada em disco com um 

BSAVE nome, ASD000, LS2F F F 

Depois, para reinicializar o cartao, exe- 
cute os seguintes comandos: 

POKE -16255,0: POKE -16255,0 
BLOAD nome 
POKE - 16256,0 

E: claro que, se vocb quiser incluir esses 
comandos num programa, o segundo co- 
mando deve ser substituidopor: 

PRINT CHR$(4); "BLOAD nome" 



Algumas observagoes 



1 . Quaisquer programas escritos ante- 
riormente a uma modificagao deste tipo 
na linguagem, nao precisam (nem devem) 
ser alterados, pois o BASIC nao armazena 
a palavra reservada e sim um cbdigo que 
a represen ta no programa. 

2. Este programa nao deve ser utiliza- 
do num Applesoft jb modificado, a nao 
ser que se tenha completo controle sobre 
o que esta acontecendo no computador 

3. Lembre-se de que, se houver algum 
problema durante ou depois da execugao 
do programa de modificagao, o simples 
acionamento do interruptor do com- 
putador o resolverb. 

4. Com algumas modificagoes, este 
mesmo programa pode ser usado para mo- 
dificar as palavras do DOS, sem a neces- 
sidade de se ter um cartao de expansao de 
membria. Nos prbximos numeros mostra- 
remos como fazb-lo. 

5. Alguns leitores jb devem ter pensado 
em modificar as mensagens de erro. Utili- 
zando uma tbcnica semelhante (mas nao 
igual, devido a uma diferenga que hb no 
armazenamento dessas mensagens) vere- 
mos, nos prbximos numeros, como fazer 
isso no Applesoft e no DOS. 

6. Comentbrios dos leitores a respeito 
deste programa, ou de outros relaciona- 
dos ao assunto, serao bem aceitos pela 
nossa equipe. 



I REN It TRADUTOR D£ PALAVRAS It 

31983 POR DENTRO DO APPLE 

1H P = 53456: NP « 117 
111 DIN A«(NP):NB * l:J * P - It 
HONE : PRINT TAB( 4); 'TRAD 
UTOR DE PAIAVRAS RESERVADAS' 

: PRINT : PRINT : PRINT 'A6(J 
ARDE...* 

121 FOR I * 1 TO NP:AI(I) * " 

131 J = i * 1 : At ( I ) = AtU) ♦ CHRt 
( PEEK (Jilt IF PEEK (J) < 

128 THEN 131 
141 NEXT I 

151 PRINT : PRINT : PRINT 'SOBRA 
H 'jNB}* BYTES.': PRINT "016 
ITE 0 CONANDO A ALTERAR 
PRINT ' < RE TURN > PARA TERRI 
NAR:': INPUT ";At: IF At = 

" THEN 231 



2M NL = LEN (At (ID ♦ NB: PRINT 
: PRINT 'SUBSTITUP-LO POR I 
ATE’ -;NL;' CARACTERES):': INPUT 
Bt: L = LEN <Bt): IF L > 

NL OR L - I THEN PRINT CHRt 
(7);: SOTO 2M 

211 NB * NB + LEN (AtUI) - L: IF 
L * I THEN At(I) - CHRt ( ASC 
(Bt) ♦ 128): 60T0 151 
221 At(I) * LEFTt (Bt,L - 1) ♦ CHRt 
161 IF LEN (At) * 1 THEN At * CHRt 
( ASC (At) ♦ 128): SOTO 181 
171 At * LEFTt (At, LEN (At) • 1 
) ♦ CHRt ( ASC ( RIGHT! (At 
,1)) ♦ 128) 

181 FOR 1 = 1 TO HP: IF At(I) = 

At THEN 211 

191 NEXT I: PRINT : PRINT 'ESSA 
PALAVRA NAO EXISTE'j CHRt (7 
): 60T0 151 



( ASC ( RIGHT* (It, ID ♦ 128 
): SOTO 151 

231 INPUT ‘POSSO FAZER A ALTERAC 
AO FINAL (S/N) ? *;At: IF LEFTt 
(At,!) " '»■ THEN HONE : PRINT 
'NENHUNA ALTERACAO FOI FEITA 
- TERHINADO.': END 

241 FOR I = 1 TO 13: READ X,Y: POKE 
X,Y: NEXT I: CALL 768 

251 PRINT ^ PRINT 'A6UARDE...': FOR 
I * 1 TO NP: FOR J s 1 TO LEN 
(At (I) ) : POKE P, ASC ( HID! 
(A!(I),J,1)):P * P ♦ 1: NEXT 
J,I 

261 POKE 49281,1: HONE : PRINT ' 

FIN DA ALTERACAO.': END 

271 DATA 768,161, 769,1, 778,76 
, 771,44, 772,254, 49281,1, 
49281,1, 61,1, 61,218, 62,25 
5, 63,255, 66,1, 67,218 




Tio Fred List agradece a todos os que t6m 
enviado programas e em especial a Gui- 
Iherme Nogueira Rodrigues o two liners 
enviado, cuja listagem vem a seguir. A coi- 
sa que esse programa cria esta mostrada 
na figura em anexo. 



I REN 6UILHERNE N. RODRIGUES 
SAO PAULO - SP 

1 H6R2 : HC0L0R= 3: FOR X * 8 TO 

19I:P > X I ATN (1) / 45 I 
361 / 279 I 4:X2 « X2 ♦ 279 / 
191sP2 > X2 I ATN (1) / 45 I 
361 / 279 I 3 

2 YI * SIN (P) I 95 + 95: Y2 * COS 

(P2) I 131 ♦ 139: HPLOT X2,Y 
1 TO Y2,X: NEXT 



Colaborapoes de Daniel Falconer e Jos6 Eduardo Moreira 
professores assistentes do Departamento de Computagao da Escola Pueri Domus. 



Enviem suas colaborapoes para a "Se- 
cao Por Dentro do Apple” no seguinte 
enderepo: 

MICROMEGA P.M.D. LTD A. 

Rua Bahia, 1049 
01296 -Sao Paulo -S.P. 
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A FITA DO MGS 



TIG 




COMP 



Gustavo Egfdio da Almaida 



Tig-Comp d um tfpico programa- 
ferramenta, cuja fungao 6 compilar os 
programas em Basic, ou seja, transformar 
os programas feitos originalmente em 
Basic, em programas de linguagem de m3- 
quina do Z80, linguagem essa muito mais 
veloz que o Basic. 

Este software 6 comercializado pela 
Tigre-Comdrcio de Equipamentos para 
Computadores Ltda. 

0 programa nos foi enviado, gravado 
numa fita de boa qualidade, acompanha- 
da de manual explicativo. (Fig. 1 ) 




f»g. 1 



Tig-Comp pode ser usado em todos os 
computadores compativeis com a I inha 
Sinclair, TK-82, TK-83, TK-85, CP-200, 
e outros. 

Testando Tig-Comp em alguns progra- 
mas desenvolvidos ou adaptados na nossa 
redagao, este veio a confirmar as expecta- 
tivas, provando ter um bom desempenho 
apesar de haver algumas •restrigoes, mas 
quase todas superaveis. 

A fita trabalha somente com numeros 
inteiros, na faixa de -32768 a 32767, 
sem operagoes com "Strings" e Algebra 
Booleana. 

Os comandos usados pelo Tig-Comp, 
sao os seguintes: 

ABS, CHR$, CLS, FAST, GOSUB, 



GOTO, SCROLL, SLOW, STOP, 
UNPLOT, USR e COPY (usando-se 
USR 2153). 

DIM Z(v) - A matriz deve ser unica, 
devendo ser dimensionado apenas um 
ARRAY sempre tendo o nome Z. 

FOR- NEXT - Seu incremento d sem- 
pre de 1 . 

Exemplo: 

Maneira errada: 

lO FOR C«1 TO 10 STEP B 
20 NEXT C 



Maneira cor ret a: 




IF-THEN - 

Exemplo: 



Maneira errada: 

10 ir Pal OR B =2 THEN GOTO 100 



Maneira correta: 



10 


IF 


R*1 


THEN 


GOTO 


100 


20 


IF 


B=2 


THEN 


GOTO 


100 



LET: Este comando 6 restrito as qua- 
tro operagoes (+, — , # , /) mais as seguin- 
tes fungoes: 



LET V = (PEEK U, USR U, ABS U, 
INT U) 

LET V = RND: Esta fungao 6 diferen- 
te da usada no seu micro. No TK, o 
RND gera um numero aleatdrio de 0 a 1. 
No Tig-Comp, RND gera um numero 
inteiro de 0 a 32767. Para compreender 
melhor o uso desta fungao, compare os 
exemplos: 



Maneira errada: 

10 LET L» INT <RND*30J 



Maneira correta: 



10 


LET 


L « INT 


(RND/ C327B7/30) ) 


OU 








10 


LET 


L * INT 


IRND/1092) 



Note que, nesta fungao £ gerado um 
numero de 0 a 32767, que deve ser dividi- 
do pelo numero que fari'amos variar, se 
us^ssemos essa mesma fungao no Basic- 
TK: 

LET V = CODE INKE Y$ Assume o 
valor do cbdigo da tecla pressionada. 
Exemplp ; 

Maneira errada: 

10 IF INKEY THEN LET R-P+l 



Maneira correta: 




NEW — Usa-se USR 0 se desejar "apa- 
gar" toda a memdria, incluindo acima da 
RAMTOP. 

Usa-se USR 963 para "apagar" atd a 
RAMTOP, como usado normalmente. 

PAUSE V — A tela nao oscila. O valor 
de V tern que ser menor que 32768 e 
qualquer tecla pressionada durante a pau- 
sa, provocar^ a execugao do comando se- 
guinte: 



BREAK — Retorna ao Basic. 

PRINT — Podem ser usados: 

PRINT AT, "STRING", VARIAVEL, 
CHR$, podendo os mesmos serem com- 
bi nados. 

Exemplo: 

10 PRINT PT 10 , 10; "WJCflOMfGA", AT 
11, 10; "MICROHOPBy “ 
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Agora apresentaremos um programa- 
exemp/o, mostrando-o primeiramente em 
Basic-TK e, poster iormente, o mesmo 
programa # com as respectivas modifica- 
poes, podendo ser compilado pelo Tig- 
Comp. 

Antes de tudo, devemos carregar o 
Tig-Comp com o comando LOAD " 
Carregado o programa, devemos deletar 
todas as linhas menos as de numeros 
0, 2, 3 e 4; que serao usadas pelo compi- 
lador. 

Seu programa poder3 entao ser digita- 
do a partir da linha 5.Vamos ao programa 
exemplo: ( Figura 2) 




Agora, atengao: na figura 3 mostramos 
esse mesmo programa, modificado apenas 



para sua aceitagao no Tig-Comp. 

Especial atengao as linhas 30, 32, 35 e 
65. (Figura 3) 

Ap6s digitar-se o novo programa, tere- 
mos que compila-lo, ou seja, transform^- 
lo de Basic para linguagem de m^quina. 

Para isso temosqueacionar o Tig-Comp 
atrav^s do comando direto, ou seja, sem 
numero de linha: 



LET L = USR 17389 



A operagao de compilar 6 rapida, e 
apos o comando acima, sua listagem apa- 
recera na tela em forma de SCROLL. 

Essa operagao se repet ira tr§s vezes e 
logo apos isso, aparecera no canto inferior 
da tela o cddigo 0/0, final izando a opera- 
gao do compilador. A partir deste mo- 
mento, seu programa ja estar4 compilado. 

Se seu programa foi verificado, atenta- 
mente, em Basic, poucos erros surgirao. 
Caso isso ocorra, surgira umHinverso, so- 
bre ou prdximo ao erro cometido. 

0 cursor 6 transposto instantaneamen- 
te a linha nao identificada pelo compila- 
dor, faltando somente editar e corrigi-la. 

Depois de compilado, o programa deve 
ser tratado como uma rotina em lingua- 
gem de maquina e, para acion^-lo, usa-se 
o comando LET L = USR 18823. O 



5 REM NETEORO 
1© REM GUSTRUO EGIDJO De 
RLME IDR 
15 LET Bel® 

20 LET R=10 

25 LET C*0 

30 IF INKEYf."5" THEN LET 

35 IF INKEY*« ,, e M THEN LET 

37 IF B<® THEN LET B=® 

36 IF 6 >29 THEN LET B =29 

40 PRINT PT P , 5 , "6J “ i RT P,B;" •• 

45 LET CbC*1 
5® PRINT RT P ♦ 1 , B ; 

55 IF PEEK (PEEK 16398+256*PEC 
K 16399} < >0 THEN GOTO 7S 
60 SCROLL 

65 PRINT RT 20 . INT (RND*30>;“* 
** ; RT 2© , INT ( RND *3C RT 20,1 

NT <RNDl30); 

7® GOTO 3® 

75 PRINT RT 20,7; "PONTOS : ” ; C 
BO PRINT RT 21,0,”OUCR JOGRR P 
E NOUO ? (S/N) “ 

©S IF INKEY S ■ ’* S ’* THEN GOTO lOO 
90 IF INKEY$«"N" THEN PRINT RT 
10, 13; “BBS* 

95 GOTO 05 
lOO CLS 
105 GOTO 15 

fig. 2 



6 REM HETCORO 
10 REM GUST PUO CGIDIO DE 
RLME IDR 
15 LET 0=10 
20 LET R-10 
25 LET C-0 

3® LET U-CODE INKEYS 

32 IF J=33 THEN LET B=B-1 

33 IF J=3o THEN LET 0t0>l 
37 IF B<fe) THEN LET B=0 

30 IF B>29 THEN LET 0=29 
40 PRINT PT P , O , ‘’B*’ ; RT P,B;” *' 

45 LET C=C*1 
50 PRINT RT P+1,0, 

55 IF PEEK (PEEK 15393t256»PCt 
K 16399)0© THEN GOTO 75 
60 SCROLL 

65 PRINT RT 2® , INT (RND/1093) . 
**#••, RT 20, INT (RND/1092) ; ** * . RT 

2®, INT (RND/1092) , "f 
70 GOTO 30 

75 PRINT PT 20, 7; -PONTOS : C 

60 PRINT RT 21,0; -OUER JOGRR D 
C NOUO **> (S/N) ’* 

53 LET J =CODE INKEYS 
65 IF J=56 THEN GOTO 10® 

90 IF J«51 THEN PRINT RT 10,13 



95 GOTO S3 
100 CLS 
105 GOTO 15 
110 STOP 



fig. 3 



ERRATA 

O ESQUIflDOR, MICROHOBBY N* 6 



R NEUE DO ESQUIPDOR REflLHENTE 
ERR "FOFP" E DESLIZOU SOBRE NOS. 
R "RUPUPNCHE" SE DEUE PO FPTO DE 
TERMOS OMIT IDO OS CODIGOS DE 
LINGUPGEM DE MPOUINP DR LINHP 
REM.BPSICRMENTE NPO HP* PROBLEMS 
EM COP IP -UR CRRPCTERE POR CPRRC- 
TERE fOEJfi -DESGRILPNDO" DO N* 5) . 
POREM , UM DOS CPRRCTERES ESTR* EM 
INUERSO E PUGUMRS REUISTPS PODEM 
TER SRIDO COM UM PEOUENO DEFEITO 
NR IMPRESSRO , IMPED INDO SUP UEI- 
TURR. 



PSSIM OS CODIGOS SPO : 



16514.. .. 4-2 16515. 

16516.. . ©4 16517. 

16518.. . 17 16519. 

16520.. . 0 16521. 

16522.. . 209 16523. 

16524- . . .214. 16525. 

16526 . . . 237 16527 . 

16528. . .201 



. . 12 
. .229 
. .33 
. .25 
. . 1 
. .2 
. . 176 



TERMINE 

COM O UGA-DESUGA DE SEU MICRO, 
VIDEO GAME, VIDEO-CASSETE, ETC. 

USE A CA/XA DE 
D/STR/BU/CAO CD-3- 1 




compatlvel com: 
TK82, TK83, TK85 e 
TK2000, CP200, 
CP300 e toda a 
linha APPLE. 




VENDAS: 




cromatecnica 

laboratorio de Nideo ltda. 

R. Fforencio de Abreu. 157 6° - Cj 604 Tel.: 228-2598 - CEP 01 029 SP 



NOME 

END.: 



CEP: 



C/DADE: 



| E ST A DO 
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OS OITENTA 



Ultima Part# 




UM 



EDITOR DE CARTAS 



Igor Sartori 



As fungoes de "fatiamento" de strings , 
tambdm conhecidas por fungoes si icings, 
sao convenientes para qualquer programa 
de processamento de textos. 

Estas fungoes permitem ao compu- 
tador "quebrar" uma cadeia de caracteres 
em pontos determinados. Estas fungoes, 
associadas com as outras que descrevemos 
anteriormente (Microhobby numero 6), 
nos permite isolar qualquer grupo de ca- 
racteres numa string e executar fungoes 
com eles. 



RIGHTS, MID$e LEFTS 



As fungoes RIGHTS, MIDS e LEFTS 

sao responsdveis no TRS-80 e na maioria 
dos computadores (mas nao no TK) pela 
slicing. 

RIGHTS ( string ou vartivel string, n): 
esta fungao fornece os ultimos caracteres 
da string, ou seja, os n caracteres a direita, 
contados a partir do ultimo. 

Por exemplo, no programa: 

1* LET AS = "CERTAMENTE" 

29 LET B$ = RIGHTS (AS, 5) 

30 PRINT B$ 

0 computador exibird na tela: 

MENTE 

LEFTS (string ou varidve! string , n): 
fornece os n primeiros caracteres de uma 
string. 

Por exemplo, no programa: 

ia LET AS = "CERTAMENTE" 

2a LET B$ = LEFTS (AS, 5) 

3a PRINT BS 

0 computador exibird na tela: 

CERTA 

MIDS ( string , ou vartive! string n, m): 
fornece urn trecho da string de compri- 
mento n a partir do caractere m. Por 
exemplo, o programa: 

IS LET AS = "CERTAMENTE" 

2$ LET BS = MIDS (AS, 3,4) 

31 PRINT BS 

exibird na tela: 
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TAM 

Aldm destas fungoes, podemos juntar 
pedagos de strings ou strings inteiras por 
meio da operagao de concatenagao ou so- 
ma de strings. Esta operagao "soma" duas 
strings e fornece como resultado uma 
string com os caracteres justapostos. Por 
exemplo, o programa: 

ia LET A$ = "CERTA" 

2a LET B$= "MENTE" 

3a LET C$= A$ + B$ 

4a PRINT C$ 

exibird na tela: 

CERTAMENTE 



O slicing no TK-83 



No TK-83 e seus compativeis d pos- 
sivel fazer o "fatiamento" de strings usan- 
do-se urn recurso muito interessante: a 
prbpria posigao dos caracteres. 

Se vocd conhece bem o TK, deve estar 
lembrado que cada caractere ocupa uma 
posigao de memdria numa varidvel string. 
Cada uma destas posigoes de memdria 
tern o tamanho exato de urn byte. O 
BASIC do TK permite que tenhamos 
acesso a cada urn destes bytes. Por exem- 
plo na f igura 1 , mostramos um programa 
em BASIC TK que nos permite acessar 
um a um os bytes da string "CERTA- 
MENTE". 




Com este tipo de artificio poderemos 
simular no TK, as instrugoes RIGHTS, 
MIDS e LEFTS. 

RIGHTS no TK, devemos usar artifi'- 
cio que faga o computador considerar a 
string de um ponto qualquer atd o final. 
Para isso, basta fazer: 

LET CN TO > 

onde AS e BS sao varidveis strings , e N d 
um numero inteiro. Repare que apds o 



TO (SHIFT 4) nao aparece numero al- 
gum. Assim, o computador considera a 
string a partir do caractere N atd o final. 

Experimente agora o programa da fi 
gura 2. Ele fornece todas as partes de uma 
string , que podem ser obtidas por este ar- 
tiffcio. 



10 LET fl|«"CCRT«HEMTE M 
ae FOR 1*1 TO 10 
30 PRINfT fl$(I TO I 
40 NEXT I 



CERTRMENTE 

ERTRMENfTE 

RTRMENTE 

TftMENTE 

RMEMTE 

MENTE 

ENTE 

NTC 

TE 



LEFTS basta fazer com que o TK 
considere uma string a partir de primeiro 
atd o "endsimo" caractere. Por exemplo: 



LJET TO N) 



onde N significa o numero de caracteres 
que desejamos na string. 0 programa da 
figura 3 d um bom exemplo de como as 
coisas ocorrem no TK. 



lO LET A • a ** CERT RMENT E ” 
SO FOR I«1 TO lO 
30 PRINT *»(1 TO II 
40 NEXT I 



C 

CE 

CER 

CERT 

CERT A 

CERT AN 

CEPTPME 

CERTAMEN 

CERTANENT 

CERTAMENTE 



MIDS basta fazer com que o TK con- 
sidere uma string a partir de um caractere 
tambdm determinado. Por exemplo: 



LET TO Ml 



onde N representa o primeiro caractere 
considerado e M o ultimo. 0 programa da 
figura 4 mostra um exemplo de aplicagao 
para este tipo de instrugao. 




Tanto no TK como no TRS-80 estas 
fungoes podem ser associadas a outras pa- 
ra se calcular a posigao dos caracteres de 
uma string. 



Implementando o Editor de Cartas 



Com o conhecimento que j£ temos, 
podemos traduzir o programa do TRS 80 
para o TK. Na figura 5, mostramos uma 
listagem de como o programa ficou ap6s 
nossas tradugoes. Evidentemente, corta- 
mos uma parte dele para simplif ic^-lo. To- 
davia, as alterapoes que fizemos nao fo- 
ram muito profundas e podem ser incre- 
mentadas na listagem final. 






1 REM EDITOR 
1C LETT E = 3 
30 DIM Rfi (20 .33) 

4.0 PRINT *’T HMRNHO MR\. DR LINH 
R«32 LETRR5" 

130 PRINT " IN3TRUCOE3" 

140 PRINT " IKTRODUIR R5 LINHRS 
1 R 1" 

150 PRINT “P/ CORRIGIR 1 LINHR" 
160 PRINT ”D IGITE" ** > ** **E O 5EU N 

• « 

•DIGITE FIM PRRP PRRR 



‘ODO R TELR E5TIUER C 



-DIGITE CONT” 
300 



•0-INTRODUZI 
• 1 -CORRECRO" 



170 PRINT 
R- 

171 PRINT 
HEIR" 

173 PRINT 

175 PRU5E 

176 CLS 

100 FOR Xsl TO 100 
190 LET Z = X 
200 PRINT “ > “ ; X 
210 INPUT RfCXl 
215 PRINT Rf (X> 

220 IF R$ (X . U a" >*' THEN GOTO 45 

0 

230 IF Rt(X,L TO THEN 

GOTO 260 
250 NEXT X 
260 CLS 

340 FOR Bsl TO X - 1 
3SO PRINT Rf(BJ 
440 5TOP 

450 RFH ROT I NR DE CORRECRO 
460 LET V*L*RL flf(X,2l 
47© PRINT ** 5ELECRO ** 

471 PRINT ” 0 - IHTROPU^ IR *” 

472 PRINT 

475 INPUT 

476 CLS 

430 IP 3<0 OR R>1 THEN GOTO 470 

490 GOTO 500 +R *20 

50© LET Rf (V )*-- 

505 INPUT R f IV I 

506 PRINT R f CY I 

510 LET XaX-l 

511 GOTO 250 

520 LET TtLEN RflYI 
530 LET C*1 

540 LET M*0 

550 LET Ot=INKEY$ 

560 IF THEN G05UB 1000 

570 IF RND C < «T THEN GOS 

UG 2000 

500 IF Qf«~I“ THEN GOSUB 3000 
590 IF Q|b“E“ THEN GOSUB 4000 
600 IF 0$«"L M THEN GOSUB 5000 
620 GOTO 550 
900 STOP 

1O00 REM MOSTRfl CRRRCTER^S 

1005 IF C>T THEN GOTO 550 

1010 LET HsM+1 

1020 LET C=C*1 

1040 LET I»=R»(Y,MI 

1050 PRINT I*. 

1060 RETURN 

2000 REM DELETR CRCTERE 
2010 LET Rf (Y) cRf (Y , 1 TO C-1)+Rf 
(Y,Cfl TO » 

2020 RETURN 
3000 PEM INCLUSRO 
3010 INPUT Uf 

3020 LET Rf(Y)rRf(Y,l TO C-l) Nf 
♦RflY,C TO (32-C-LEN U f > > 

3030 RETURN 
4000 REM ESCAPE 
4020 PRINT 
4030 PRINT 
4040 LET R$(XJ *"” 

4050 LET X*X-I 

4060 GOTO 240 

5000 REM MOST RR LINHR 

5010 PRINT A % C Y , C TO I 

5020 LET H=0 

5030 LET CbI 

5040 RETURN 




Vamos, agora, descrever algumas das 
alteragoes que foram necessdrios para que 
0 programa "rodasse" no TK. 

A primeira alteragao importante est£ 
na linha 30. Nela ao inv£s de fazermos: 

DIM Rf (1001 

fizemos: 

DIM Rf (20,381 



Isso porque limitamos o numero de li- 
nhas £ 20, com 32 caracteres. No TK, o 
ultimo mdice de uma matriz string £ o 
indicativo do tamanho m^ximo que cada 
vartevel, que faz parte desta matriz, pode 
ter. Assim, no nosso caso, A$(20,32) sig- 
nifica que temos uma matriz com 20 va- 
riaveis, contendo 32 caracteres cada uma. 
0 segundo mdice £ usado no slicing indi- 
cando ao computador que aquela vartevel 
possui urn comprimento maximo (no nos- 
so caso, 32). Cuidado entretanto com as 
"atribuigoes procustianas". 



As Atribuigoes Procustianas 



Uma das coisas que mais tern "grilado" 
os possuidores do TK-83 e seus compati- 
veis 6 que, nos manuais de muitas destas 
m£quinas, aparece uma frase com mais ou 
menos este conteudo: "As atribuigoes de 
uma vartevel string s6 podem ser procus- 
tianas". 

Isso apareceu no manual, porque seu 
autor conhecia muito bem Mitologia: 
Procustes era urn gigante que raptava as 
pessoas e as colocava deitadas numa ca- 
ma. Se a pessoa fosse menor, ele as estica- 
va at£ que ocupassem todo o leito. Se fos- 
sem maiores ele cortava suas pernas no 
comprimento da cama. E: o que acontece 
com a atribuigao de varteveis no TK. 
Quando voc£ dimensiona urn vartevel com 
DIM A$(10), ao atribuirmos uma string a 
A$, o computador sempre considera a 
string com dez caracteres (o valor do mdi- 
ce): se a string for maior, ele corta os ulti- 
mos caracteres; se for menor, ele preen - 
che o que falta para completar, com es- 
pagos em branco. Experimente rodar o 
programa que mostramos na figura 6 para 
entender melhor o que ocorre. 



ie DZH P|(10) 

20 LET R $ = "PRRRLELEP IPCDO" 
30 PRINT Rf.LEN Rf 
40OLET Rf r-PfiRPLELO” 

50 PRINT Rf ,LEN Rf 



PRRRLELEP X 
PRRRLELO 



10 

lO 



Como voc£ deve ter notado, as atribui- 
goes deste tipo fazem com que as strings 
tenham sempre o mesmo comprimento. 
Levando isso em consideragao nao pode- 
remos, em hipdtese alguma, controlar es- 
tas varteveis pelo seu comprimento, co- 
mo fizemos no TRS-80. 



Outras modificagoes 



Algumas modificagoes sao 6bvias e nao 
as comentaremos (basta que voc£ d£ uma 
olhada na listagem que a presen tarn os nes 
te numero e na listagem que apresenta- 
mos na Microhobby 5). 

Devido as "atribuigoes procustianas", 
eliminaremos a parte que verifica se uma 



linha digitada excedeu o tamanho m£xi- 
mo. Desta forma, se uma linha for excedi- 
da, o computador desconsidera o trecho 
a mais. 

As rotinas de corregao foram substitui- 
das por sub-rotinas. Atengao para a sub- 
rot ina que mostra os caracteres, uma vez 
que o BREAK do TK est£ na mesma tecla 
que o espago, usamos o numero 0 para fa- 
zer esta fungao. 

Com o que descrevemos neste e nos 
numeros anteriores, com um pouco de 
atengao, voc£ pode analisar uma a uma as 
rotinas de corregao de erros. Note que 
nao fizemos uma rot ina para cl backspace 
(retorno do cursor sem apagamento de 
caracteres). Para isso, devemos langar mao 
de uma rotina em linguagem de maquina. 
Isso fica como uma sugestao para que vo- 
ce desenvolva uma e nos envie como cola- 
boragao (se for em BASIC, melhor ainda). 

Como qualquer outra sefio desta revista, 
a se$ao Os Oitenta esta aberta as colabora- 
foes, desde que este jam dentro do seu esp /- 
rito: artigos voltados para o TRSSO, de pre- 
fers ncia sem mencionar-se discos ou lingua- 
gem de miquina, muito bem explicados, 
com detalhes t deni cos para que o usudrio do 
TK posse ap render um pouco mais de pro- 
gramagao e conhecer uma outra maquina. 
Daremos preferincia a artigos e programas 
que procurem aproximar as duas mdquinas, 
mostrando suas semelhangas e diferencas. 

O 
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CURSO DE ASSEMBLY 

aula 6 



3101100111111 
3110X1110100© 
7>i7»r?>c*p> •* -i 00 nil 

i. 00101 ’ 

j00@0ir 

J11110 r 

001000 ' 

,011101 

-101110 

111010 

0©00 iwa 110100 
0000100110010 
0000100000101 



.000000110 
.11011001011 
31001" 0010*. 

met Liooc 

> 010 © 1110 ' 

■> 011110110 " 
,,00000011 - 
, 01 Q 0 P -"»1 1101 . 
01 12.^ ’.©111 

111 © 0000 

©i©©© xien 

>© 0000110010 © 
> 1101 © 1111 »^ 



^1011101^. 
.00100I1110W 
00100 “ ‘ 10110 



10110 

io©od 

0010C 

10005 

00105 

1001G 

^0111 

0111 : 



1010. 
10111 
3010G 
1 1000 
101© 1 
1O01G 
©11©/ 

. JL 1011 



■'0111101000- 
' 11100013 



Flavio Rossini 



Iremos agora fazer "contas'' com os re- 
gistradores, assim como fazemos em 
BASIC, com as varidveis de urn programa; 
entretanto, a linguagem de mdquina per- 
mite fazer diretamente apenas contas de 
soma e subtragao e, como vocd jd deve ter 
notado, lida apenas com numeros inteiros. 

Vamos indicar com as instrugoes de 
adigao de registros e de pares de registros: 
(Tabela 1) e (Tabela 2) 



INSTRugOES 


C6DIG0 


ADO 


A.A 


'87' 


ADD 


A.B 


'80' 


ADD 


A,C 


*81* 


ADD 


a,d 


*82* 


ADD 


A.E 


'83' 


ADD 


A.H 


'84* 


ADD 


A.L 


*85' 



Tab .1 



INSTRUCTS 


COOIGO 


ADD HL.BC 


'09' 


ADD HL.DE 


'19' 


ADD HL.HL 


'29' 



Tab. 2 

A instrugfo ADO antra registros. 



que significam: some o conteudo do regis- 
tro ou par de registros da direita com o da 
esquerda e conserve o resultado no regis- 
tro, ou par de registros da ESQUERDA; 
os registros da direita, portanto, NAO sao 
alterados. Em BASIC, uma analogia pode- 
ria ser feita com: 

LET X = X + V 

Novamente notamos o registro A, ou 
seja, o ACUMULADOR como sendo pri- 
vilegiado, de fato, ele d o "alvo" de todas 
as operates aritmeticas entre registrado- 
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res ou entre registradores e memdria, per 
manecendo nele o resultado da operagao. 
No caso de par de registros, o par privile- 
giado do HL Assim, qualquer operagao 
aritmdtica DEVE utilizar o acumulador 
ou o par HL 

Vamos entao tentar somar o conteudo 
do registro D com o registro E com uma 
subrotina em linguagem de mdquina: (Ta 
bela 3). 

Note que a soma nao pode ser feita di- 
retamente ! Devemos obrigatoriamente 
usar o ACUMULADOR. Coloque entao o 
programa na memdria e execute-o (usan- 
do HEXAMEM, publicado na edigao nu- 
mero 4 e na numero X, que condensa os 
melhores programas publicados na MI- 



CROHOBBY). Voce devera obter o nu- 
mero 100 (=34 + 66)! Provavelmente de- 
ve ter surgido na sua cabega, a seguinte 
pergunta: e se a soma der maior do que 
255 (ou seja FF’) que d o rrrfximo que 
cabe num registro? E no caso de pares de 
registros, se o resultado for maior do que 
65535 ('FFFF')? 

De fato, em BASIC quando uma varid- 
vel estoura o limite mdximo do compu- 
tador, o programa pdra e aparece uma 
mensagem de erro. 

Para ver o que acontece em linguagem 
de mdquina, fagamos um exemplo: vamos 
carregar o registrador BC com o valor ma 
ximo e somar 1 . (Tabela 4). 



MEM. 


30009 


LD E,34 


'1E22' 




MEM. 


30002 


LD D.66 


'1642' 




MEM. 


30004 


LD A.D 


'7A' 


; copia D em A 


MEM. 


30005 


ADD A.E 


'83' 


; soma E com A, ou seja, com D 


MEM. 


30006 


LD C.A 


'4F' 


; copia o resultado em C 


MEM. 


30007 


LD 8,0 


'0600* 


; coloca 0 em B para a sai’da do pro 
grama 


MEM. 

Tab. 3 


30003 


RET 


'C9 


Programa para somar os registros O a E. 



MEM. 


30000 


LD HL1 


'210100' 


; coloca 1 em HL. ou seja, '0001' 


MEM. 


30003 


LD BC.65535 


•'01 FFFF' 


(note que devemos completar 
os 2 bytes de dados) 

; coloca o valor miximo em BC, 


MEM. 


30006 


ADD HLBC 


'09' 


ou seja. 'FFFF' 

;soma BC com HL;o resultado 


MEM. 


30007 


LD B.H 


'44' 


fica em HL 

; coloca H em B e L em C para 


MEM. 

MEM. 

Tab. 4 


30008 

30009 


LD C.L 
RET 


'4D' 

'C9' 


poder ter o resultado na tela 
Soma da 65535 com 1 . 






VocS obtbm como resultado o numero 
0! De fato, pensando em hexadecimal (re- 
vista numero 4 e numero X de Micro - 
hobby), ao somar ao numero 'FFFF' 
deveriamos obter '10000', mas veja. este 
ultimo di'gito "nao cabe” nos regis- 
tros! Quando isto ocorre, dizemos que 
houve urn "vai urn" ou CARRY, assim 
como ocorre ao somarmos, por exemplo: 

1 

19 

+ 18 (9 + 8=17, vai urn. . .) 
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0 microcomputador assinala este acon- 
tecimento em urn bit chamado CARRY 
que faz parte de urn registro INTERNO 
chamado F o qua I nao podemos usar 
DIRETAMENTE. Este registro armazena 
bits para varias informagoes (usualmente 
estes bits sao chamados de FLAGs). As- 
sim, sempre que executarmos uma instru- 
gao de ADD, o bit de CARRY b calcula- 
do: se houver "vai urn" ele resulta 1 , caso 
contrario 0. 

Podemos usar o valor deste bit para fa- 
zer contas com numeros maiores do que 
255 ou atb mesmo maiores que 65536. 
Para isto, usaremos a instrugao ADC que 
6 abreviagao de "ADD WITH CARRY" 
ou seja, some com o CARRY, que sim- 
plesmente adiciona ao resultado obtido 
de uma soma, o valor do CARRY. Tere- 
mos entao as seguintes instrugoes: (Tabe- 
la 5). 



INSTRUQAo 


c<5digo 


ADC 


A. A 


*8F* 


ADC 


A.B 


'88' 


ADC 


A.C 


'89' 


ADC 


A.D 


'8A' 


ADC 


A.E 


'88' 


ADC 


A.H 


'8C' 


ADC 


A.L 


'8D' 



INSTRugAO 


c<5digo 


ADC HL.BC 
ADC HL.DE 
ADC HUHL 


'ED4A' 

'ED5A' 

'ED6A' 



A instrugao ADC. 



ObservacSo: Estas tres instrugoes 
fazem parte das instrugdes precedi- 
das per 'ED', 

Vamos entao utilizar a instrugao ADC 
para fazer contas com numeros maiores 
do que 65535. Suponhamos que quisbs- 
semos somar os seguintes numeros: 
com '02A5EF' (= 2*65536 + 165* 
256 + 239 = 173 551) 

'F4DE' (=244*256 + 222 = 
= 62686) 

(NOTA: 65536 = (256) 2 ) 
Devemos obter: 173 551 + 62686 = 
= 236.237. 



Vamos dividir os numeros em tr$s par- 
tes: colocando o primeiro nos registros 
B, D e H e o segundo nos registros C, E e 
O o resultado ser3 colocado nas memb- 
rias, ap6s o fim do programa! 0 raciocf- 
nio a ser usado 6 an^logo ao somar de nu- 
meros de tr£s di'gitos na base 10, s6 que, 
no caso, a base seria 256. . . (Tabela 6). 

Repare que nao nos interessa o resulta- 
do final dos registradores BC que no caso 
ser3 61406. 0 resultado da nossa soma 
por partes est3 nas membrias 30028, 
30029 e 30030 que estao apos a instrugao 
de RET. Portanto, para verificar se o nos- 
so raciocinio est3 certo, basta fazer: 

PRINT 65536 * PEEK 30030 + 256 * 
PEEK 30029 + PEEK 30028 

e obteremos 236.237! Note que a primei- 
ra instrugao de soma deve ser SEMPRE 
um ADD pois nao sabemos qual o valor 
inicial do CARRY e, se por acaso ele for 
1 , introduziremos um erro no resultado. 
Neste ponto vale a pena salientar que as 
instrugoes LD nao afetam a flag de 
CARRY; repare que as usamos livremente 
entre as instrugoes de adigao sem afetar o 
resultado. 

As instrugoes de ADD e ADC tambbm 
podem ser utilizadas para somar constan- 
tes numbricas diretamente com o acumu- 
lador; assim temos: (Tabela 7). 



INSTRUCAO 


COOIGO 


ADD A, dado 
ADC A.dado 


'C6' + 1 byte de dados 
*CE* ♦ 1 byte de dados 



Tab . 7 



0 resultado f icarb no acumulador; lem- 
bre-se que este registro b privilegiado e 
todas as operagoes aritmbticas sao referi- 
das a ele! Obviamente estas instrugoes 
tambbm afetam a flag de CARRY. Note 
que, nao podemos somar dados DIRETA- 
MENTE com pares de registros! 

Suponhamos entao que vocb deseje so- 
mar um numero, menor que 256 (por 
exemplo 74) com um par de registros 
(por exemplo HL). Isto poderia ser feita 
da seguinte maneira: (Tabela 8) 

Repare cuidadosamente no uso da ins- 
trugao ADC A,0, que foi utilizada apenas 
para somar o valor do CARRY ao registro 
H! Usando este mesmo procedi men to, 
tente agora somar um numero maior do 
que 255 ao par HL, por exemplo HL + 
+ 256. . . (vocb deverb quebrar o numero 
em dois bytes!). 0 exemplo anterior po- 
deria tambbm ser feito carregando o par 
DE com 74 e usando a instrugao ADD 
HL, DE; entretanto, estaremos usando 
mais registros. 

A operagao de soma b muito utilizada 
tambbm quando desejamos utilizar uma 
varibvel como contador para poder fazer 
loops de repetiqio, mais adiante, aprende- 
remos como fazer esses loops em lingua- 
gem de maquina; por enquanto, vamos in- 
troduzir a instrugao INC (abreviagao de 
INCREMENT), a qual adiciona 1 (um) ao 
valor do determinado registro (ou par), 
SEM, no entanto, AFETAR 0 VALOR 
DO CARRY! Observe que podemos usar 



MEM. 


30000 


LD E.200 


'1EC8' 




MEM. 


30002 


LD D.58 


'163A' 




MEM. 


30004 


LD A.D 


'7A' 




MEM. 


30005 


ADD A.E 


'83' 


; soma E com A e gera CARRY 


MEM. 


30006 


LD C.A 


'4F' 


; coloca o resultado em C 


MEM. 


30007 


LD A.0 


'3E00' 


; coloca 0 em A 


MEM. 


30009 


ADC A,A 


'8F' 


; transfer® o CARRY para A e a seguir 










para B 


MEM. 


30010 


LD B.A 


'47' 




MEM. 


30011 


RET 


C9' 




Tab. 6 






Soma de dois registros com resultado ma«or qua 255. 



MEM. 


30000 


LD DE. 13189 


'118533' 


; coloca 13189 em DE 


MEM. 


30003 


LD HL.31687 


'21C77B' 


; coloca 31687 em HL 


MEM. 


30006 


ADD HLDE 


T9' 


; soma DE com HL 


MEM. 


30007 


LD B.H 


'44' 


; coloca H em B e L cm C para 










a sai'da na tela 


MEM. 


30008 


LD C.L 


'4D' 




MEM. 


30009 


RET 


'C9' 




Tab. 8 








Soma dos pares DE com HL. 
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instrucAo 


COOIGO 


ADD A.(HL) 


'86' 


ADC A,(HL) 


*8E' 


INC (HL) 


*34' 


Tab . 10 


As instructs INC e ADD ussodo e membrie. 



esta instrupao com TODOS os regis- 
tros: (Tabela 9). 



INSTRUCAo 


cOdigo 


INCA 


*3C' 


INC B 


'04' 


INC C 


'0C' 


INC D 


T4' 


INCE 


'1C' 


INCH 


'24' 


INC L 


'2C* 


INC BC 


'03' 


INC DE 


T3* 


INCHL 


'23' 



Tab . 9 



Novamente, referindo-se ao BASIC, 
uma analogia para esta instrupao seria: 

LET X = X + 1 

Lembre-se sempre da diferenpa entre 
ADD e INC: por exemplo, ADD A, 1 ir2 
calcular um valor para o CARRY (0 ou 1 ) 
enquanto que INC A deixara o CARRY 
inalterado, embora as duas instrupoes pro- 
duzam o mesmo resultado no acumu- 
lador. 

Vamos entao, seguindo os mesmos pas- 
sos que fizemos com a Instrupao LD, sair 
dos registros e ir para a memdria. Apenas 
tr§s instrupoes sao dispomveis, que mos- 
tram claramente o privil6gio do Acumula- 
dor e do par de registros H L : (Tabela 10) 



que significam respect ivamente: some o 
CONTEUDO da memdria indicado pelo 
par HL ao acumulador (sem CARRY e 
com CARRY) e incremente o conteudo 
da memdria indicada por HL. Assim, ve- 
jamos o procedimento necessario, para so- 
mar um numero, por exemplo, 64, ao 
conteudo da memdria 300 1 0 : (T abela 11). 

Fapa POKE 30010,36 e a seguir exe- 
cute o programa. Voc6 devera obter 100, 



pois ir3 realizar a conta 64 + 36 = 100! E: 
sempre bom recordar que as varteveis de- 
vem ficar AP(3S a instrupao de RET 
(30010) no nosso caso). Entretanto, para 
programas mais complexos, 6 interessante 
colocar as variaveis bem depois da instru- 
pao de RET, deixando espapo livre na me- 
mdria entre o fim do programa e as varia- 
veis para eventuais modificapoes no pro- 
grama que possam causar aumento do seu 
tamanho. o 



MEM 


30040 


LD 


HL.30010 


'213A75' 


; coloca 30010 em HL 


MEM. 


30003 


LD 


A.64 


'3E40' 


; coloca 64 em A 


MEM. 


30005 


ADD 


A,(HL) 


8E' 


; soma o conteudo da memo- 
ria 30010 com A 


MEM. 


30006 


LD 


8.0 


'0600' 


; transfere o resultado para 
BC 


MEM. 

MEM. 


30008 

30009 


LD 

RET 


C,A 


'4F' 

‘C9* 





Tab .11 A iratru^io INC para os registros infernos. 
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— Gatinho Carets iro ! — disse ela com ti- 
midez , nao sabendo sa o Gato gostava qua 
o c ha masse m assim. Vendo qua nao sa zan - 
gava, aventurou-se a concluir a frasa: 

— Pode dizer me que caminho devo to * 
mar? 

— Isso depends do lugar para onda quar 
ir — responds u com muito propdsito o 
Gato. 

— Nao tanho dastino car to. 



— Nesse caso, qua/quar caminho serve. 

- Serviri sim, sa o caminho lever a «l 
gum lugar - sugar tu Alice. 

— Qua/quar caminho conduz a algum 
ponto, se voc6 andar deprassa e chegar - 
disse o Gato. 

Trecho de # 'Alic8 no Pais das Maravilhas" 
de Lewis Carroll — Adaptado por M. Lobato 




Nova men te ( para esta sepao, con tamos 
com a colaborapao de nosso colega, as- 
sinante e amigo pessoal, Nabor Rosenthal. 

Recebemos por volta do comepo do 
m£s, uma carta onde Nabor nos conta so- 
bre sua ultima viagem, quando esteve no 
Norte da India. 

L3, a caminho da casa de seu ami- 
go, Ramarujan, ele teve que atravessar 
uma intrincada rede de pontes sobre urn 
rio. 0 passeio de Nabor Rosenthal foi o 
que nos inspirou este m§s. 

A seguir, transcreveremos o trecho da 
carta que deu origem ao nosso Quebra- 
Cabepa: 

"Indo ao encontro de meu amigo de 
infSncia, tive que atravessar urn rio. Este 
rio continha 10 pequenas ilhas, interliga- 
das por uma rede de 18 pontes. Entretan- 
to, para cruzar sete destas pontes, deve- 
riamos pagar uma determinada quantia. 
Este fato chamou-me a atenpao e pergun- 
tei-me: Por que apenas sete? 

Eu queria visitar todas as ilhotas, pois 
uma carta de meu amigo hindu me infor- 
mava que em cada uma delas havia uma 
escultura em pedra, verdadeiras obras de 
arte, datadas de muitos s6culos atr^s. 

Antes de atravessar, por6m, eu pensei 
urn pouco sobre as sete pontes. Nao foi 
preciso muito tempo para descobrir a mi- 
lenar sabedoria Hindu, escondida discre- 
tamente na disposipao das pontes e na es- 
colha das pontes que deveriam ser taxa- 
das. Estas sete pontes foram escolhidas de 
tal forma que quern quisesse se livrar das 
taxas, teria que passar necessariamente 
por todas as ilhotas e por todas as outras 
1 1 pontes, pelo menos uma vez. Desse 
modo, uma pessoa disposta a nao gastar 
desnecessariamente, veria todas as dez 
esculturas, sem pagar urn centavo. 

Atravessei o rio pelo caminho mais 
econ6mico (sem pagar nada), passando 
uma unica vez por cada ilhota e por cada 
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uma das 1 1 pontes sem taxas. Na base de 
cada escultura que encontrei em meu ca- 
minho, havia urn numero gravado. Anotei 
cada urn deles e vi que formavam uma se- 
qufincia I6gica que chegou a me espantar, 
pois estes numeros, nesta sequGncia, apa* 
rentemente apresentavam urn signifi- 
cado". 

Em anexo, Nabor nos mandou urn ma- 
pa, que reproduzimos na figura 1 . As pon- 
tes estao diferenciadas por letras e as ilhas 
pelos numeros das esculturas. 



Seu problema &. 

1) Fazer com que o TK, previamente 
programado, descubra o caminho seguido 
por Nabor Rosenthal, indicando quais das 
pontes ele usou. 

2) Descobrir, usando o TK, se h4 al- 

gum significado na sequGncia de numeros 
encontrados nas bases das esculturas por 
Nabor Rosenthal, e se houver, esclarecG- 
lo. O 



COMPUTADOR PESSOAL 
v i k j AS-1000 




CARACTERISTICAS TECNICAS: 



UNIDADE DE PROCESSAMENTO : 

— Microprocessador Z80 A (8 bits) velocidade 3,25 MHz 

MEM 6 Rl AS 

— 8 Kbytes EPROM ( sistema /nterpretador BASIC ) 

— 16 Kbytes RAM l utilizapSo para o usuano) 

MONITOR DE VIDEO: 

— TV 88/ P oo c6r no canal 2 (sem modificapSo I 

— 24 Itnhas com 32 caracteres por linha. 

— GrSffCOS 44 x 64 pixels 

— Video re verso e normal comutSve / por chave 



SOFTWARE: 

— Compative! com: CP200, TK82-C, TK83. TK85, 

NEZ8000. TIMEX 1000 , ZX80, 
ZX81 

— ProgramSve / em hnguagem de mSquma 

— Basic residente 



UNIDADE DE FITA: 

— Um gravador (sem interface -4S- 1 00) 

— Usando interface AS- 100 atA quatro gravadores. 

TECLADO: 

— Membrane com apSo sensitive de toque ( bo/ha 
metShca inoxtdAvel) 

— 40 tec/as com 1 54 funpfes. caracteres alfanumdncos. 
caracteres grSficos, funpdes matemSvcas, comandos 

expansAo 

— Para 32 Kbytes e 48 Kbytes (64 Kbytes total. ) 

— Adiciona-se um ou dots mddu/os de 16 Kbytes, no 
interior do micro, atravds de acesso prdpno no fundo 
domesmo 

— O mddulo bas/co de 1 6 Kbytes, e os dots de 
expansSo. sSo todos iguais. permitindo expansSo 
progressiva pe/o usuSrio 

ACESSdR/OS: 

— Dois cabos para conexSo de gravador 

— Um cabo para conexSo do micro a TV 

— A fonte de ahmentapSo ( 1 10/2 20V) fS 6 embuuda no 
AS- 1000 cbspensando qualquer fonte externa 



PER/FiRICOS 

— Modem para transm/ssSo de dados 

— Joystick 

— AS- 1 00 (interface) 

opera e gerenc/a ate quatro gravadores 

■ comanda qualquer impressora I inclusive 
profissionais) 

- mampula arqutvos em fita e nSo somente programas 
inte/ros 

■ a vane a e pSra gravadores. tambdm por software 
I programapSo ). 

- testa vahdade de programas e arqutvos em fita. 

- permite cdpias de fitas 

- Iista programas. dados e arqutvos na impressora 

- exdustvo sistema FSK (frequency shift keying ) com 
compressor de Audio, que a/usta automaticamente 
o nivel para o gravador. ehmmando a desagradSvel e 
crft/ca tarefa de ajuste no mesmo, oferecendo total 
confiabilidade nas gravapdes em fita 

Mddulos de expansSo (vide memdrias) 

— Speed file 

- expansSo externa de memdna com 1, 2 ou 4 
Mbytes 



GARANTIA DE 1 ANO 
ASS/STENCIA TECNICA DE FABRICA 



ENGEBRAS 



ENGEBRAS ELETR6NICA E INFORMATICA LTDA 

ADMINISTRAQAO DE VENDAS: Rua Russel. 450 - 3° • Tel : 205-4898 
CEP 222 1 0 - RIO DE JANEIRO - RJ 




Aqui voce tem a melhor 
imdagaoem 
microcomputagSo 
que existe. 

OTK 83 jd ensinou mais de 2 milhdes de pessoas. 

Ele 4 muito fddl de operar. Usa o Basic, e a memdria chega 
at4 64 K bytes, e aceita monitor , impressoro e joystick . 

Num instante voc§ voi estor resolvendo problemas 
progromondo , ou vencendo os muitos jogos disponfveis. O 
TK 83 nao 4 s 6 a melhor inicia^ao. Tamb4m 4 a mais divertldo. 



Aqui vocS ja aplica 
os seus conhecimentos 




Aqui voc& mostra 
tudo o que sabe. 



Com o TK 85 voc4 tomb4m pode se divertir muito: ele 
tem dezenos de jogos disponfveis. 

Mas ele jd 4 mais sofisticado. Tem software jd pronto. 
Linguogens Basic e Assembler. Teclado tipo mdquina de 
escrever, com 40 teclas e 160 f undoes. 16ou48Kde 
memdria RAM, e 10 de ROM. Grava^ao em high-speed , 

© fungdo Verify, para maior seguranga. 

Quando voc4 jd estiver apaixonado por 
microcomputagao , ele vai corresponder totolmente. 



TK2000s8&Sx* 



O TK 2000 Color tem tudo que os 
melhores micros t4m. Menos o pre^o 
Aceita diskette, impressora (jd vem com 
interface), alta resolu$ao grdfica d cores 
podendo ser ligado ao seu TV colorido 
ou P&B. Tem 64 k de memdria RAM e 
16kde memdria ROM. Com excelente 
software disponfvel. 

Voce poae mostrar tudo o que sabe 
Sem precisar mostrar muito dinheiro 
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